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Introduction 


The Oric is a fine machine, with excellent sound and colour 
facilities. Unfortunately the manual supplied with the Oric is 
rather uninformative about some of its capabilities, so we will 
begin by explaining some of the statements which are frequently 
used in graphics programs. 

What you see on your television screen when you are typing in 
or running a program is actually part of the computer memory. 
Just as any program is stored in the computer memory, so data 
can be stored in the part of the memory which is visible on- 
screen. To store data there we need one vital piece of information 
— what are the memory locations used for the screen display? 
Consulting the manual reveals that in text or lores mode, the 
screen occupies the locations from #BB8O to #BFEO. The # at 
the start of these numbers means that they are in hexadecimal. If 
you don’t know what that means, don’t worry, but it is important 
that you do not miss the # from the start of the numbers 
whenever they are used in a program. 

Now that we know the screen memory locations we can have a 
look at the method for getting things to appear on-screen. 

POKE is normally described as a command which changes the 
contents of a memory location. If you type POKE #BC84,65 the 
number 65 will be placed at memory location #BC84, which just 
happens to be one of the screen memory locations. Will we see the 
number 65 appearing in the middle of the screen? No, because to 
the Oric, each number is also what is called a character code, and 
the number 65 is the character code for A. By typing POKE 
#BC84,65 we cause the letter A to appear in the middle of the 
screen. A list of some of the Oric character codes is given in 
Appendix D of the manual. 

So we get characters on-screen using POKE. But how do we 
know when we have shot a space invader, scored a hit ona sub, or 
bumped into a wall? For this we use PEEK. 

PEEK enables us to examine the contents of a memory location 
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— in other words, find out what is at a particular address. When 
running games programs, we often need to PEEK to a memory 
location to see what character code is stored there. Returning to 
our earlier example, if we typed POKE #BC84,65: PRINT PEEK 
#BC84 the Oric will print 65, because it is telling us what is stored 
at the memory location where we just placed the number 65. 

Suppose we were playing a simple game where we fired at 
space invaders which were dropping down the screen towards 
us. Every time we fired a ‘bullet’ at a space invader we would 
have a chance of hitting it. Before we moved the bullet to this new 
position, we would PEEK that memory location to see what is 
there. If we find the character code for a space invader, we know 
that we have hit it, and we can POKE an explosion symbol to that 
location, use EXPLODE to give a suitable sound, and add a little 
extra to our score. 

On the other hand, we may find that the memory location for 
the bullet’s new position contains the character code for a space, 
32. In this case we would just erase the bullet from its old location 
by poking 32 there (a space) and we would poke the character 
code for the bullet into its new memory location. 

This process is carried out so swiftly by the Oric that it gives the 
impression of movement—to the naked eye the bullet will travel 
without pausing. In fact it is not moving at all: we are just poking 
the bullet to a position, then erasing it by poking a space there, 
and then repeating the sequence at a new position. 

Often the Oric character codes will not be suitable for a 
particular game. On older micros there was no way around this 
problem, and many times I have seen a glum micro user firing a 
stream of full stops out of a gun which was the letter A, and trying 
to avoid the deadly attacks of hordes of letter Zs! 

Fortunately the Oric lets us make up our own characters and 
use them to replace those already available. It is important to 
choose characters which are unlikely to be needed elsewhere. It 
would be very foolish to replace the number 3 by a monster 
character, as we would then be unable to use a 3 anywhere in the 
program! 

Throughout this book the character codes 91-96 and 123-125 are 
used when new characters are created. These codes are normally 
used to indicate square brackets, the copyright sign, and other 
characters which are not likely to be needed in the course of a 
program. 
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The Oric manual goes into the methods of character creation in 
some detail, so we shall not repeat the explanations here. 
Needless to say, these programs have been written so that it is 
easy to insert your own characters if you find, for example, that 
the monsters in the program ‘Zombies’ are not sufficiently 
horrific for you. 

To simplify matters, the programs all have a common format 
which makes them straightforward to amend. 

Line 900 contains the most important screen locations. These 
locations are TL, the top left memory location for the screen, TR, 
the top right, BL, the bottom left, and BR, the bottom right. LL, 
the line length, or number of characters you can get on one line, is 
also defined. 

Note that TL, TR, BL and BR are all given as hexadecimal 
numbers and must be preceded by #. Due to a printer quirk, the 
program listings have produced things like TL=£BBD2, but take 
no notice of the £. 

There are two advantages to defining all the screen locations 
in one line like this. Firstly, these locations will be common to 
many programs, and line 900 and several other lines can be saved 
as a common ‘skeleton’ program about which the rest of the 
program can be constructed. 

Secondly, and more important, defining the corner locations of 
the screen like this makes it easy to change the size and shape of 
the screen area to suit your own taste. You may well prefer all the 
action to take place in a much smaller area than that given. You do 
not have to use the true screen corner locations in line 900, and 
you may decide to move TL, TR, BL and BR in two memory 
locations diagonally from the actual screen corners. 

You can thus make a game more or less challenging by 
changing just one line from the program. 

The lines following 900, up to 950, similarly ease the modifi- 
cation of the program in other ways. 

Line 910 contains the character codes for all the symbols used in 
the course of the game. Subroutine 2000 pokes these character 
codes into memory, and if you want to make up your own 
characters to use in a game and dispense with those given, you 
need only change the data statements in lines 2010 onwards. 

Line 920 contains all those variables which affect the course of a 
game: NB might be number of bullets that you can fire, NL the 
number of lives you can lose before the game ends, and so on. 
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Again, collecting all these variables together on one line means 
that only minor changes are needed to make a game very easy or 
much more difficult. 

Lines 930 and 940 are only used in certain games. They contain 
8 array values, D(0) to D(7). You do not need to change these 
lines, but a word of explanation is necessary to clarify their 
function. The array contains the 8 values for movement in the 8 
compass directions. To move up the screen, for example, we 
would need to subtract the line length from the present memory 
location to get the number of the location directly above it on- 
screen. D(0) is therefore set equal to —LL, minus the line length. 
The other array values give movements in the other major 
compass directions. 

When a key is pressed on the keyboard, a variable showing the 
present movement number is adjusted so that it indicates which 
array value D(_ ) should be added to the present memory location 
to give the new position. If we pressed the key for up-screen 
movement, for example, the movement number variable would 
take the value 0, showing that D(0) is to be added to the present 
memory location to give the new one. 

Line 950 sometimes contains DT, the distance along the screen 
top, and DL, the distance down the left side. Lines 960 and 965 
ask whether instructions are required, and line 1000 always clears 
the screen and sets the foreground and background colours. 

Lines 2000 and those immediately after it deal with the creation 
of user defined characters, and lines 5000 onwards always give 
the instructions and set the skill level. 

Sound commands are scattered throughout the programs, and 
if you have delicate ears you are advised to omit these statements! 

The programs usually begin with a statement that turns the 
cursor and keyboard click off, and then there is an immediate 
jump to line 900, where the initialisation of the variables begins. 
This may seem odd, but there are advantages to this structure. 
Whenever a GOTO statement is used in a program, the computer 
has to search through all line numbers from the start to find the 
line to which the jump must be made. 

If we place the initialisation routines at the very start of the 
program and put the lines which actually run the game 
immediately afterwards, the game will be slowed down, because 
whenever a GOTO is used in the latter half of the program, the 
computer will have to check through all those extra program lines 
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before it finds the desired one. 

The programs presented here are for pleasure, and none of 
them is intended as an example of a perfect program. On my early 
model of the Oric, several of the commands did not work or 
appeared to have bugs in them: there are probably many 
improvements you can make in these programs. The concen- 
tration of all the variables in lines 900-950 should make 
modifications simpler. 

Lastly, a word of advice. Having entered these programs, try to 
resist the temptation to run them immediately. Save them on 
cassette first. As nearly all the programs described here use 
POKE, a mistake on your part can cause a POKE to an area of 
memory off the screen. This sometimes makes the computer lose 
the program entirely, and you will have wasted a lot of time and 
effort. 

Provided you have made no typing errors, the program should 
work perfectly. Each of these programs has been run and tested 
many times, and there are no major bugs. You should be able to 
use many of the ideas from these programs in your own games. I 
hope you enjoy the ones listed here. 


Wallsmasher 





In this game you have to stop the deadly rain of bombs by 
blowing them up in mid-air with your rockets. Fortunately you 
are protected by a thick wall of rock, but once the bombs get 
through that... 

This relatively simple program illustrates many of the 
advantages of using only variables defined in lines 900-920. For 
example, you can change the number of bombs that drop at any 
one time by adjusting BN in line 920, or you can increase your 
own speed relative to the bombs by increasing BV on the same 
line. Find the going too tough? Increase the value of WT in line 
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920—this is the wall thickness. Too easy for you now? Increase TL 
and TR in line 900. This moves the top of the playing area down, 
and means there is much less time to react as the bombs drop. 
Changing these few variables produces many interesting 
variations on the game. Experiment and see what combination 
gives you the most challenge. 


Program notes 


10 Key click and cursor off. 


20-40 Bomb start position routine. 20 chooses a random position 
along the top from which the bomb will drop. 30 ensures a bomb 
is not placed on top or directly above another bomb. 40 stores the 
start position in array B( ). 


50-90 Bomb move routine. 50 is a count so that the bombs only 
move once for every twice the player moves. 55 checks the 
bomb’s present position. If the bomb has been blown up leaving 
empty space, it is poked back into a new position at the top of the 
screen, 65. Otherwise the bomb is erased and its new position 
checked to see if the rocket is there. 75 finishes the game when 
any bombs hit the ‘ground’, and 80 pokes the remaining bombs 
to their new positions and saves those positions in the array B( ). 


110-140 Player move routine. 110 accepts the keyboard input, 
which may move the rocket launcher right, 110, or left, 120. 130 
prevents the launcher going off-screen at the sides, and 140 pokes 
it to its new position. 


260-300 Player rocket launch and rocket move. 260 updates the 
time taken so far. In 290 the rocket launched flag RL is checked. If 
a rocket has been fired no other can be launched, and while a 
rocket is sliding through the protective wall, it should not be 
poked on-screen, 295. 


300 prevents the player from launching a second rocket while the 
first is still on its way. 300-360 move the rocket, 340 causing an 
explosion if either a bomb or the top of the screen are hit. 
370-380 gives the score. 


900-950 Initialisation routine. 
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960-1030 Game set-up routine. 1015-1020 pokes the protective 
wall onto the screen, 1025 chooses the start positions for the first 
wave of bombs. 


2000-2020 User defined character creation routine. 


5000 onwards — instructions. 


Important variables 

BC Bomb count — bombs do not move until this reaches BV, 
giving the player a speed advantage. 

BN Number of bombs falling at one time. 

BP Bomb position on-screen. 


BV Bomb velocity — a high number means the bombs move 
slowly. 


GP Gun position — location of rocket launcher on-screen. 
NP New gun position after movement. 
RL Rocket launch flag — set to 1 when rocket is launched. 


RP Rocket position on-screen. 


Symbols used 


BS Bomb symbol. 

ES Explosion symbol. 

GS Gun symbol for player — to launch rockets. 
RS Rocket symbol. 


10 PRINTCHR$ (6) CHR#(17):GOTO900 

20 BP=TL+INT(RND(1) *#DT+1):PR=FPEEK (CRP) : PN=FEEE ( 
BP+LL) 

30 IFPB=BSORPN=BSTHEN20 

40 B(BR)=BP: RETURN 

SOQ BC=BC+i: IFBC<BVTHENII0 

390 BC=0:FORB=1TOBRN: BP=B(B) :FR=PEER (BP) 

60 IFPB=32THENS=S+1 

65 IFPB=32THENGOSUB20 
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70 POKEBP,32: BF=BP+LL: PR=PEER (BF) s IFPR=RSORPR= 
WSTHENPOKEBP, 32: EXPLODE: GOTO7G 
75 IFRPSWRTHENFOKEBF-LL,ES: GOTO370 
BO POKEBP,BS:8(B) =BF 
90 NEXT 
110 NP=GF:AS=KEY$: IFA¥=CHRS$ (4) THENNF=NP +I 
120 IFA#=CHR$(8) THENNF=NF-1 
130 IFNP=GPORNF< BLORNP >BRTHEN260 
140 POKEGP,32:GP=NF:POGKEGF,6S5 
260 T=T+i: T#=STR# (TI: PLOTI7,24, 7% 
290 IFRL=1ANDFEEK (RP) =WSTHENIW=1:RFP=RP-LL: GOTO 
50 
295 IFRL=1ANDIW=1THENRP=RP+LL: [W=0: G0TO340 
300 IFRL=1THENS30 
310 IFASé>" "THENS40 
320 RL=1:RP=GF-LL:GOTO290 
330 PR=FEEK (RF): POKERP, 32: IFPR=32ANDRP*GP-LLTH 
ENRL=0:G0TOQ50 
340 RP=RP-LL: TFPEERK (RP) =BSORRP2 TRTHENPORKERP, 32 
:EXPLODE: RL=0:G0TOS0 
350 POKERF,RS 
360 GOTOS0 
370 CLS:PRINT"You iasted for time "yf 
S86 END 
900 TL=£BBD2: TRe£BBFS: BL=£BECA: BR=EBEED:LL=40° 
910 BS=91:ES=92:G6S5=93:R9=94:WS=95 
916 FORZ=917T095: GOSUBZ000; NEXT 
920 T=0:BC=0: BN=2:8Vae:WT=2:1W=0 
950 DT=TR-TL:WL=BL-LL:WR=BR-LL: GP=BLtINT (Live: 
960 CLSO:FRINT"Do you want instructions (f/Ni'; 
965 INPUTA#: [FAS="Y¥"THENGOSUBS O00: GOTOLGG9 
1000 CLS: INEO: PAPERS 
1005 FLOTI1,24, "TIME: " 
1010 FOKEGF,GS 
1015 FORA=WLTOWL+DT:FOREA,WS:NEXTA 
1020 WT=WT-i: TFWTSOTHENWL=WL-LL:GOTG1O15S 
1025 FORB=1TOBN: GOSUB2ZO:NEXTE 
1930 607055 
2000 XX=46080+7#8: FORQ=XXTOXX+7:READU: FOKEG,U: 
NEXT:RETURN 
Z010 DATAQ,19,4,4,4,4,0,0,6,2,32,1,16,4,0,0,12 
212,12,39,30,45,45,45 
O DATAIZ, 12,12,12,12,53,45,45,63,33,33,33,4 


od a Os 


Pe re: ee 
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S000 CLO:PRINT"You control a rocket launcher a 
nd":FRINT"must try to blow up as many" 

5005 PRINT"bombs as possibl? before you are’:F 
RINT"destroyed. You may oniy fire one" 

s0iG PRINT" rocket at a time - 1¢ you miss you" 
tFRINT“will have to wait until the" 

5020 FRINT"rockeat exoleades at the ton of the 
rFRINT' screen betore you can launch” 

S030 FRINT another. rou are protected by a wal 
L"sPRINTWT;" bricks thick. Gnce this” 

se40 FRINT’is breached, the game ends. " 

S050 PRINT:FRINT"Controis - use the cursor key 
s to":FRINT"move your launcher lett ang" 

S060 PRINT'right. Press the space bar to fire. 
"SFRINT'Press any key to begin." 

S070 GETAS: RETURN 


ui 
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In this game you control a tiny caterpillar, and you can make it 
grow by gobbling up suitable food. The “food” consists of 
numbers which appear at random on the screen. As the game 
continues and your caterpillar grows longer and longer, it will 
become more difficult to control. But your caterpillar is so 
poisonous that if it bites itself, it will die. And you dare not bump 
into the walls either — because they’re electrified! 

The main problem in this program is how exactly we can make 
the caterpillar grow. It might seem that the simplest way to do 
this is to draw the caterpillar, erase it, then draw it again in its 
new position. When the creature eats a number, we need only 
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draw it one unit longer at the new position and it will appear to 
have grown. 

There is only one thing wrong with this approach — it does not 
work! The Oric takes too long to draw and then erase the cater- 
pillar. We need to devise a program which does not involve 
rubbing out the entire caterpillar each time. One way to do this is 
to only erase the very end of the caterpillar, place a segment of the 
body at the old position of the caterpillar’s head, and draw anew 
head. The following diagrams should make the process clear: 


1 2 3 4 5 6 7 8 
BOeSeSeeese 
ed Es OO | OO 

1 5 6 


2 
Eneeoees: 


Movement of the caterpillar on-screen. The last segment, at 2, is erased, the old head 
at 7 is replaced by a segment, and the new head is placed at 8. 


The actual position at which the head will be placed depends 
upon which control key on the keyboard is being pressed. 
Because we will have to rub out the caterpillar’s tail every time it 
moves, it is clear that we will have to store all the screen memory 
locations which the caterpillar occupies. Each time the caterpillar 
moves, the next-to-last segment will become the new tail, and we 
will need to know its memory location so that we can erase that 
new tail on the next move. 

All the screen locations for the parts of the caterpillar’s body are 
stored in the array S( ). Whenever the caterpillar moves, an 
unused array value is used to store the screen position where the 
head now is. The caterpillar gradually travels through the array, 
which is why the array is set to S(900) at line 900: this also gives 
plenty of room for it to grow in the array. When the caterpillar 
reaches the end of the array, the head cycles back to S(0), (line 
140). 
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Every time the caterpillar hits a number, it grows by that 
number of segments, the growth taking place from the head. This 
allows you to control the caterpillar even as it grows. 

The subroutine which places the numbers randomly on the 
screen has been placed at the start of the program to speed things 
up. It is a relatively simple task to introduce a few changes, such 
as symbols which will kill the caterpillar if it eats them. For 
example, the following have exactly this effect: 


165 IF RND(1) >0.9 THEN N=43: GOSUB12 


If you want to make the caterpillar’s task even more difficult, 
change line 165 above so that the deadly symbols appear even 
more often, for example 165 IF RND(1)>0.1 .. . is a real 
challenge! 


Program notes 


10 Key click and cursor off. 
12-16 Subroutine to place numbers on-screen. 


20-60 Keyboard controls using cursor keys. The caterpillar head 
symbol varies according to the direction in which the caterpillar 
is heading, so H is adjusted along with the direction. 


110-170 Caterpillar move routine. 110 finds the new head 
position and checks that the caterpillar has not bitten itself or run 
into a wall. Anything else hit must be a number, so 120 adds this 
value to the length of the creature, and sets the number value NV 
to the value of the number just hit. This is so the number can be 
poked back elsewhere onto the screen after it has been eaten. If 
the caterpillar’s present length does not match its theoretical 
length, 130 makes the creature grow by one unit. 135 and 140 
move the caterpillar through the array S(_ ). 145 pokes the head to 
its new position, pokes a body segment to the old head position, 
and deletes the tail. 160 pokes any eaten numbers back onto the 
screen by calling subroutine 12. 


200-280 Game end routine. 200 makes a suitable noise when the 
caterpillar hits itself or the wall, and the remaining lines make 
appropriate comments. 
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900-950 Initialisation routine. 
960-1000 Offer instructions and set colours. 


1100-1210 Game set-up routine. 1100 and 1105 draw the electri- 
fied walls making up the playing area. 1110 to 1200 draw the 
caterpillar in a random position on-screen. 1210 calls the sub- 
routine to poke the numbers 1 to 9 to the screen, and 1220 draws 
the caterpillar’s head. 


2000-2030 User-defined character creation routine. 


5000 onwards — instructions. 


Important variables 


LP Present caterpillar length. 


LS Length of caterpillar including extra units added due to 
numbers eaten. 


MD_ My direction of movement — to select a move for the 
caterpillar from the array D( ). 


NN_ Number position as it is poked on-screen. 
NV Number value — value of number eaten. 

NX Random X coordinate for number. 

NY Random Y coordinate for number. 

S Position of caterpillar head within array S( ). 
SD _ Side distance inside play area. 


SP _ Position of parts of caterpillar’s body as it is poked to the 
screen. 


ST Caterpillar tail position. 


Character symbols 

H Head of caterpillar. There are 4 head symbols, as the cater- 
pillar can move in 4 different directions. 

NS Nine symbol — character code for number 9. 

OS  Nought symbol— code for number 0. 
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SS Segment of caterpillar symbol. 
WS Wall symbol. 


Arrays 


D(_) 8compass directions from north. 


S(.) Screen memory, locations of all parts of caterpilllar’s body. 


10 PRINTCHR# (6) CHR$(17):G0TO9O0 
12 NX=INT(RNO(L) *#TD+L) :NY=INT(RND (1) *#SD+1) 
14 NN=SZ+NX-NY#LLS TFPEER (NN) < @32THENI2 
16 FORENN,N: RETURN 
20 AS=KEYS:s [FAS=CHRE (LL) THENMND=0:H=93 
4Q ITFA#=CHRE(9) THENMD=2:H=94 
60 IFA#=CHR#(10) THENMND=4:H=95 
80 IFA#=CHR#(8) THENND=6:H=96 
110 NP=SH+D (MD) sP=PEEK (NP) s IFP=S5QRPSWSTHENZOG 
120 NV=Or: TFRs :32THENLS=LS+P-O5: NVaP 
130 TFLPeéLSTHENLP=LF+i:S=Sti:sPING 
135 S=S+i:ST=ST+is (FST S900THENST=0 
14d IFS>900THENS=0 
145 S(S)=NP:POKRENP,HsFORENP-DC(MND) 55: FORES(ST) 
og 
16G SH=NP: IFNVS0THENN=NV: GOSUBIE 
170 GOTGZ0 
200 PLAY3,0,1,1000;50UND3,1000,0 
205 POKENP,H:POKENP-D(MD) ,SS:POQKES(ST) ,32:WArT 
(300) 
210 CLS:PRINT"Hard luck! You "s:TFP=S57THENPRIW 
T"bit yourself. ":GOTOGZ26 
215 FRINT"bumped into a wall." 
220 PRINT’ You grew to be “LF; " units long." 
280 END 
900 DIMS(900):TL=£BBD2: TRe£BBFS: BL=£BRECA: BR=£R 
EED:LL=40 
10 OS=48:NS=57:59=91:WS=92:;H=95 
915 FORZ=917T096: GOSUBZOO0; NEXT 
920 MD=4:LS=4:LP=L$:S=L5:57T=0 
930 D(G)=-LLID(L)=-LLti D(C Z)=1: 00S) =LL ti 
940 D4) =LL:rD(S)=LL-i:D(6)=-1:0(7)=-LL-1 
950 DT=TR-TL:DL=BL-TL:SZ=BL+240(1) 
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960 CLS:FRINT"Do you want instructions (¥/N)"3 
965 INPUTA#: IFAS="V¥"THENGOSUBSG0G: GOTOLO0N 

980 GOSUBSO50 

1000 ELS: INKL: FAPERS 

1100 FORA=TLTOTR: FOKEA,WS:POKEA+DL WS: NEXT 
1105 FORA=TLTOBLSTEPLL: FOKEA WS: FOKEA+DT (WS: NE 
XT 

1110 TD=DT~-4:SD=(BL-4e#L Li fii 

1170 S¥SINTCRND(L)#TD+i) :S5Y=INTUCRND (Li #5D+10:5 
H=5Z2+SX-SY¥#LL 

1175 IFFEER(SH)< 232THENII 70 

1180 S(L5)=SH:SP=SH:POKESP,H:FORA=LS-1TOISTEP- 
1 

1190 NP=SFtD(RD) 

1195 ITFPEER (NP) < sS2THENRD=INTCRND (i) #6+1):60T0 
11906 

1200 SP=NP:S(A)=NF:FOKESP,S5: NEXT: FORN=O05+i TON 
5:G0SUR12:NEXKT 

1210 SH=S(LF):G0TO20 

2000 XX=46080+2¥8:FORG=kXTOXX+7: READU: POKEO,U: 
NEXT: RETURN 

2010 DATAIZ,12,16,51,51,18,12,12,63,63,63,638,6 
3,43,63,63 

2020 DATA0,0,0,0,33,16,12,12,0,4,8,46,48,9,4,0 
512,12,18,35,0,0,0,9 

2030 DATAQO,8,4,3,3,4,8,0 

S006 CLS:PRINT"You are a smali caterpillar. Yo 
u" 

5005 PRINT'’must try to gobble up as many":FRIN 
T'numbers as you can. You will grow" 

3010 PRINT"every time you eat a number. "sPRINT 
:FRINT"You begin a mere “sLFy" units Long.” 
sg20G PRINT’Don’t bite yourself or bang your*sP 
RINT"head against the wall!" 

S040 PRINT:FRINT*Controls - use the cursor key 
‘S.)0! 

5050 PRINT: FRINT"Fress any key to begin. ":REPE 
AT:GETA#:UNTILA#¢ +" “Ss RETURN 
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In this game you pilot a bomber which flies repeatedly over a 
number of skyscrapers and attempts to destroy them by dropping 
bombs. Each hit destroys one floor of a skyscraper, so the 
buildings gradually get lower and lower. Unfortunately your 
bomber also drops lower after each successive pass, and if you fail 
to hit the highest buildings first the plane will run into a sky- 
scraper and explode. 

This program is an old favourite, and there are versions of it for 
most popular micros. The program is straightforward, but if you 
want to make the game harder by increasing the number of 
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buildings or changing their heights or positions on-screen, just 
amend the data values at line 2030. These values are the screen 
memory locations for the top of each building. Each skyscraper is 
drawn from the top downwards. If you have more than 10 
buildings, you must change the value of NB in line 920, as this 
shows the number of buildings and is used by the computer to 
decide how many items must be read from data. 


Program notes 


10 Key click and cursor off. 
20 Delay loop, varying according to skill level. 


30-90 Bomb drop routine. Only one bomb may be dropped at a 
time, so 30 checks the bomb drop flag BD. If BD=1, a bomb is 
dropping and no further bombs can be dropped until this one 
explodes. If BD=0, a bomb may be dropped by pressing ‘B’, line 
40. The bomb’s first position is that of the plane, line 50. The 
bomb is erased, 60, and its new position calculated 65. If the new 
position is at ‘ground’ level, the bomb explodes, 70, as it does if it 
hits a skyscraper symbol, 80. Otherwise the bomb is just poked to 
its new position, 90. 


100-120 Plane move routine. 100 erases the plane from its old 
position. If the plane has reached the far right of the screen, it is 
moved back to the left and placed one line lower on-screen. 110 
checks if the new position is occupied already, in which case the 
plane will crash. 120 pokes the plane at its new position, and if the 
plane is not at ground level, the program continues. 


130-180 Game end routine. Appropriate messages are delivered 
depending on whether the plane has landed or crashed. A score 
based on the skill level and number of building blocks destroyed 
is also given. 


900-930 Initialisation routine. 


960-1150 Game set-up routine. 1100 reads in the top position for 
each building, and 1105 draws it from the top down to ‘ground’ 
level. 


2000-2020 User defined character creation routine. 
2030 Screen memory locations for top of each building. 
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3000 Bomb explosion routine. 


5000 onwards — instructions, including setting of skill level. 


Important variables 

BD _ Bomb drop flag — value 1 if bomb is dropping. 

BP Bomb position. 

HC Hit count — count for blocks of skyscraper bombed. 

NB Number of buildings to be poked onto screen. 

NP Newplane position. 

P Present plane position. 

PT Plane trip count. When PT=DT (the distance from the top 
left to the top right of the screen), the plane has moved 
across the entire screen and must be moved back to the lett 
to begin another pass. 

PV Plane velocity — the higher this is set, the slower the plane 
moves. 

TB Screen memory location for the top of each building. 

Symbols used 

BS Bomb symbol. 

ES Explosion symbol. 

PS Plane symbol. 

SS Skyscraper block symbol — a building is created by 


10 
20 
30 
40 
30 
60 


stacking these on top of one another. 


PRINTCHR$ (6) CHR$(17) :GOTO900 
WAIT (PV) 

IFBD=1THEN6O 
AS=KEY$: IFAS< )"B"THENLOO 
BP=Py BD=1:GOTO45 

POKEBP, 32 
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65 BP=BP+LL 

70 IFRP>BLTHENBD=0: GOSUB3000: 6070100 

BO LFRPEEK (BF) =SSTHENBD=0: HC=HC+1: GOSUBR3000: GOT 

gid0 

90 POKEBP,BS 

100 POREFP,32:P=P+i:PT=PT+i: IFPT=DTTHENPT=0:; F=P 

+LL-DT 

110 NF=FEEK (CP): TFNP<é 332THENISO 

120 POREP,PS:TFP<BLTHENZO 

130 PRINT: PRINT"Well done! You landed the plan 

e":PRINT"on skill level "“;S5L:GOTOL60 

150 POKEP,ES:FOR@=iT05: INKG:EXPLODE: WAIT(IG):N 

EXT: INKO:CLS 

{60 PRINT: PRINT" You hit "sHC;" blocks at skill 
level "35. 

170 PRINT"A total score of “:HO¥SL 

i8G END 

900 TLHfBRbD2: TR=£BRFS: RL=£BECA: BR=£BEED: LL=40 

910 BS=F1:E5=92:F9=93:55=74 

915 FORZ=917094: GOSUBZ000: NEXT 

920 BO=O:HC=O:NB=10:F=TL 

930 DT=TR-TLiPT=06 

960 CLO:PRINT"Do vou want instructions (Y/N) "3 

S65 INPUTA#: IFAS="¥"THENGOSUBSO00: GOTOLOO0 

780 GOSUBSOS6 

1G00 CLS: INEO:PAFER4 

1100 FORA=1TONB:READTE 

1105 FORB=TBTORLSTEPLL:POREE,SS:NEXTB:NEXTA 
1110 FORA=BLTOLBFEGSTEPLL: POKEA,18: NEXT 

1150 FOREF.PS:60TG20 

2000 XxX=460B80+7#8: FORO=XXTOXX+7:READU: FOKEO,U: 

NEXT:RETURN 

2010 DATAO,10,4,4,4,4,0,0,8,2,32,1,16,4,0,0,16 
16,56,63,4,8,16,0 

2020 DATA45,63,45,63,45,63,.45,63 

2030 DATA48612,46652,48755,48776,48615,48700,4 

8666,48746,48662,48627 

2G00 POREBP,ES: EXPLODE: POREBP,22:RETURN 

sOGQ CLS:FRINT*’Try to bomb all the buildings 5 

o":FRINT"that your plane can land“ 

sui PRINT'’saftely. Only one bomb can be":FPRINT 
"dropped at a time, and no further” 

sg20 PRINT" bombs can be drooped until the*:FPRI 

HT "first ane explodes, soa be accurate!” 
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5030 
S000 
o 3, 
aG40 
so70 


FRINT:PRINT"Controls - & draps bomb.” 


FRINT:PRINT"Input skiil level, 
"SPRINT Hard’ s:0NPUTSL 
TFSLELORSL 25STHENS OSG 
PV=4-SL:RETURN 


iy 


easy, 
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You control a man who flees from pursuing monsters by running 
up and down ladders and along floors. When you have time you 
pause to dig holes in the floor in an attempt to trap your enemies. 
Any creature that falls down a hole can be destroyed if you can hit 
it on the head while it is trapped. It will fall through the hole and 
splatter on the floor below. But don’t take too long digging the 
hole or the creature will escape and crush you! 

For the creatures it is important to record several pieces of 
information: their position on-screen; their current direction of 
movement; and what character normally occupies their position 
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on-screen, so that this can be poked back into place when the 
creatures next move. These values are stored in the arrays P(_), 
M( ), and O( ) respectively. 

Holes are dug on-screen by successively poking suitable 
characters to the hole position to give the impression of soil being 
removed. At present a hole is dug in 3 stages, 210-240, but this 
can be reduced to a single stage by deleting 210-230 and changing 
240 to POKEHP,HS:GOTO10. 


Program notes 


10 Keyboard click and cursor off. 


15-65 Creature move routine. 15 finds the creature’s present 
position, current movement, and the character at its old position. 
The last part of the line compares the creature’s position to the 
man’s and sets movement to up or down as appropriate. 20 finds 
the y co-ordinate of the creature relative to the man and checks if 
it has just fallen down a hole. If the creature is on a ladder, it will 
move up or down, 30. 40 finds its new position and checks that it 
is not moving to an occupied position. 50 fills in the hole if the 
creature has just been knocked through. 60 moves the creature to 
its new position. 


70-190 Move man routine. 70-120 are keyboard controls. 130 finds 
the new position. 150 makes the man fall vertically if he has 
jumped through a hole, 160 prevents him from going off the end 
of a floor. 170 moves the man and 180 finds his y co-ordinate 
relative to BL: this is needed to determine the direction of 
creature movement. 190 ends the game if the man gets eaten. 


200-240 Hole digging routine. 200 prevents a hole being dug at 
‘ground’ level or on top of a ladder, 210-240 substitute different 
characters as the hole is dug. 


300-340 Falling creature routine. 300 repairs the floor behind the 
falling creature, 305-310 make it fall until it hits the floor below. 
315 explodes the body, and 320-340 poke a new creature to an 
unoccupied position. 


500-510 Game end routine. 
900-955 Initialisation routine. 
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960-1130 Game set-up routine. 1010-1025 draws each successive 
floor and, except for the ground floor, 1030-1070 draws randomly- 
placed ladders hanging down from that floor to subsequent ones. 
1080 places the man, and 1085-1130 place the creatures at random 
positions on a floor other than the man’s. 


2000-2030 User defined character creation routine. 


5000 onwards — instructions and setting of skill level. 


Important variables 


CM 
CN 
CO 
cP 
CV 
DF 
EC 


Q 


HM 


HP 
LB 
LD 
LT 


MM 
MP 
NC 
24 


Creature movement direction. 
Creature’s new position. 

Character at creature’s old position. 
Present creature position. 

Creature value — its worth to player. 
Vertical screen distance between floors. 


Escape chance — probability of creature caught in hole 
escaping. 


Flag for man falling through hole to new floor. 
Creature movement on ladder, if one is available. 
Half, 0.5, used in random number calculations. 


Hole movement — direction in which hole will be dug by 
man. 


Hole position. 

Ladder base position. 

Horizontal distance between ladders on a floor. 
Ladder top position. 

Minus one, —1. 

Man’s movement. 

Man’s position. 


Number of creatures in game. 


Creatures 
NF Number of floors. 
NH Number of digs to produce complete hole. 
NL Number of ladders between pairs of floors. 
NP New position for man. 
P Plus one, +1. 


SC Player score. 


Zz Zero, 0. 

Symbols used 

BS Blank space. 

CS Creature symbol. 

ES Explosion symbol. 

FS Floor symbol. 

HS Hole symbol — for completed hole. 
H1, H2, H3 Holes in various stages of completion. 
LS Ladder symbol. 

MS Man symbol. 

OS Old symbol — found at man’s last position. 


10 FRINTCHR$ (6) CHR# (17): 60TO900 

15 FORA=FPTONC:CP=F (A): CM=N (A: CO=0(A)sGHaLL: TFA 
F-CF« ZTHENG=-6 

20 C=BL-CPsY=INT(RtC/LLI-MY¥: IFCO=HSANDFEER (CF) 
=HSTHENS00 

25 W=PEER(CF+COM): TFW=BSOGRW=CSTHENN (A) =-CM 

30 IFCO=LSANDY*< >ZANDPEER (CP +G) < 2 BSTHENTH=6 

40 CN=CP+CM: PC=PEER (CN): TFPC=CSORPC=ESORCO=HSA 
NDRND(1) #ECTHENGS 

50 IFCOQ=HSTHENCO=FS 

60 POKECF,CO:FOKECN,CS:F (A) =CN: Gi A) =FC:1FPO=MS 
THENSGO 

65 NEXTA 
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70 HM=Z:AS=KEY S$: TFAS=CHRE$ (11) THENMM=-LL 

80 IFA#=CHR$(10) GRE=FTHENMM=LL 

90 IFAS=CHR$(8) THENMM=M 

100 IFA#=CHR#(9) THENMM=P 

110 ITFAS=","THENHM=M: G0TO200 

120 IFA#=". "THENHM=FP:GOTO200 

130 NP=MP+MM: PN=PEER (NP): IFNP=NFTHENIS 

140 IFF=FANDOS< >BSTHENF=Z 

150 IFOS=HSTHENF=P:MM=LL:NFP=MP+LhLb: PN=BS 

160 IFFPN=BSANDF=ZORFN=MSTHENIS 

165 PLAY7,0,1,250:FLAY7,0,2,250 

170 FOREMP,GS:0S=FN: MP=NP:POREMF,NS 

180 J=BL-NPsMY=INT(R+0/LL)3 TFPNe SCSTHENIS 

190 GOTGS5o00 

Z00 HP=MPtHM: H=FEER (HP) s TFRHPS=BLORH=LSTHENIS 
205 PLAYO,7,1, 250 

210 S=HS:ITFH=FSTHENS=HI1 

220 IFH=HITHENS=He 

230 ITFH=H2ZTHENS=H3 

240 FOKEHF,S:G0TQ15 

$00 FORECF,FS:FLAYI,0,2,10:50=0 

S05 CP=CF+LL:E=FEEK (CP): FORV=SOTISG+20: SOUND, 
V4s NEXT: 50=50+20 

S10 TFE=B8STHENPORECF ,CS:WAIT(T):PORECP,8S:6070 
205 

S15 PLAYO,0,0,O0:PORECF,ES: EXPLODE: SC=5C+C¥ 

320 COSE:CN=F:CN=TL+DFeINT CRND GL) #NF} +i: TFRND 
1) sHTHENCN=CN+DT: CM=M 

430 PC=FEEK (CN): IFFC=CSQRPC=BSTHENS20 

340 M(A)=CM:G0TO56 

SG0 FLAY7,O,3,1i:WAIT(40;3PLAYG,0,0,G:WAIT (200) 
S03 CLS:FRINT*® Your score at skill level ";S5L;" 
was "35C 

sid END 

900 TLE£BRD2: TR=£f£BRFS: BL=£BECA:RR=EBEED: LL=40 
FiG LS=FLiFS=92:M5=93: 05594: HS=95:ES=94:05=F 5: 
BSSS2:HL=123:H2=124sH3=i125 

915 FORZ=9i TOSS: GOSUBZOOO!NEXTIFORZ=123701 25:6 
GSUBZ00G: NEXT 

9270 SC=O:NC=4:NF=4:NH=4:hLa3:Pets 220: 4=-15H=.5 
»T=id 

P30 DiGia-Lir Blip s-Lb+ii Gt Sisal rd Sr Rliri 

949 D4) =Lir DtSpeLh-i:bes)s-i: 067) =-bLb-i 

980 OT=TR-TL:BL=iBlL-ThLi stb: DF=INT OH+DL yy CNF Rid) 
FLL 
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5 LD=INT(DT AML sReCLb-do fib 
@ CLO:FRINI"Do you want instructions (Ff Hil: 
965 INFUTA#: [FAS="7 "THENGOSUBSUO0: GC Tar aod 

$80 GOSURS0S0 

1000 CLO: INKR4: PAPERS 

LOiv B=TL+l 

1015 D=B+DT:FORA=BTOD: (FREER (AI SLSTHENIO2S 
1020 FOREA,FS 

nee NEXTA: TFBRS=BLTHENIOBO 

i030 FORA=1TONL: IFAS i THENLT=LT+L 0: GOTO1o4e 
ee LT=B+INT(RND (is #lLo+1) 

1046 IFFEER(LTI=LSTHENLOS5 

1045 LB=LT+DF:; {FL B20+0F THENLB=D+DF 

1050 FORD=LTTOLBSTEPLL:PORED,LS:NEXTO:NEATA 
1070 B=B+DF: 607019015 

1080 MP=TL:05=PEER (MP) :PN=PEER (MP +o: POREMP NS 
1085 FORA=LTONC 

10970 CP=MP+DF+INTORND (1) #07T+1)+ INT RNG (1) ® NF - 
1) ) #BF 

1100 [FREER CP)< sFSTHENIOGO 

{iil CM=P:TPRND Ct) sHTHENCH=MN 

i130 Pi ASCP NM (ASCs OCA HFS: PORECR  CO:NEXTA:G 
oTa1eo 

ZOU XX=dH0B0+72 #8: FORG=AX TORE +7: READUSPOREO, Us 
NEXT: RETURN 

2010 DATAS 8, O0,83,355, ie 63,65,63,6 
rata anita 4,31,4,4,10 

2020 DATAI7,62,12,45,45,0,18,0,45,1,1,1.,1,1,1, 
1,1,6,2,32,1,16,4,9,90 

2030 DATAL,1,1,63,63,63,63,62,1,1,1,.1,1,63,03, 
63ei lel ela l,i l.6s 

5000 CLS:PRINT’You must try to kill all the":F 
RINT*creatures by digging holes for” 

S005 PRINT"them and then hitting them over the 
“!SPRINT"head while they are trapped in® 

S010 PRINT"the hole. If you leave it too long" 
:FRINT"the creature will escape a*d" 

SOLS PRINT"eat you, Use the cursor keys °:PRIN 
T'to move, and the « and ? keys" 

S020 PRINT"to dig holes to the right and left" 
:PRINT"respectively. it takes "sHH 

S0Z5 PRINT"digs to compiete a hole - a hole":P 
RIANT*that has only partially been dug" 

S030 FRINT"will not stop the creatures. “:PRINT 
"You may jump through a hole yourself" 
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S035 FRINT"and you wili fall unharmed to the": 
PRINT“ticar below, © 

sGgG PRINT’ Inout your skill tevel. i to % the” 
PPRIAT higher numbers mean that the" 





S055 FPRINT*creatures escape more quickiv fram" 
iPRIAT the heles, but they are worth’ 

SUac PRINT "more" ;:INFUTSL 

aO7O ECSSL/i0:cV=SL: RETURN 
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In this program you control a snail which moves around the 
screen at a very un-snailish speed. Every time your snail moves it 
leaves a slimy trail behind it — and you must not bump into the 
trail! 

Seem easy enough? Well, there is one small problem: the 
computer also controls a snail, so not only must you avoid hitting 
your own trail, but also that left by the computer’s snail. In 
addition you must not hit the other snail, or the walls... . 

The program is comparatively straightforward, the main 
problem being to arrange for the computer’s snail to move in a 
random fashion which, at the same time, is not so unpredictable 
that it becomes easy to trap the snail in a small portion of the 
screen. 
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In early versions of the program the computer’s snail moved 
completely at random. This proved self-defeating as the snail 
boxed itself in and was forced to eat its own trail. 

In this version the snail only changes direction around 3% of 
the time, line 135, although it will always try to change direction 
if it is about to hit a trail, the other snail, or the wall. 

If a direction change is called for, the program chooses a 
random direction, line 140, and if there is no obstacle in that 
direction, this is the way the snail will move, 145. Otherwise the 
program tests all other movements from the present position in 
an attempt to find a ‘safe’ direction. This is the reason for lines 140 
and 150: REPEAT try all the directions UNTIL you've tried them 
all or a safe direction has been found. 


Program notes 

10 Keyclick and cursor off. 

15 Loop for a series of games. 

20-80 Keyboard controls to direct the snail. 


110 Check new position of snail. If it is occupied, game to the 
computer! 


120 Move snail to new position. 
125 Pause of varying length at different skill levels. 


130 Check computer snail’s new position if it carries on in its 
present direction. 


135-150 If the new position is empty, move to it. The RND 
statement ensures that the snail will still change direction 
occasionally even when the space in front is empty. 


160 Check computer snail’s revised position. If it is empty, move 
the snail and the game continues. 


170-190 Otherwise blow up the computer’s snail and start another 
game. 


200-220 The score after a series of games. 
900-950 Initialisation routine. 


980-1000 Give instructions, set foreground and background 
colour, etc. 
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2000-2020 User defined character creation routine. 
3000-3010 Draw walls. 
3020-3040 Place snails at their start positions and display score. 


5000 Instructions and choice of skill level. 


Important variables 


B 


Count for number of directions tried by computer's snail 
in its attempt to find a safe movement. 


CC Computer count — score for computer in terms of games 
won. 

CD Computer direction for snail. 

CP Computer position for snail. 

D Direction randomly selected by computer’s snail. 

M Movement direction for snail at present. 

MC My count— my score in terms of games won. 

MD _ My direction for snail. 

MP My position for snail. 

NC Newcomputer position for snail. 

NG _ Number of games to be played together. 

NP New position for my snail. 

P Peeked value found at new positions of snails. 
Count for games as they are played. 

SL Skill level. 

Symbols used 

CS Computer snail symbol. 

ES Explosion symbol — used when a snail hits something. 

MS Mysnail symbol. 

WS _ Wall symbol. 
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iO PRINTCHR# (6) CHRE€(17):G0T0900 

in FORG=1 TONG: GOSUBS000 

20 AS$=KEY$: TFAF=CHRE (11) THENMD=0 

49 TFAS=CHRE (9) THENMND=2 

60 IFAS=CHRS (10) THENMD=4 

8O ITFA#=CHRE (8) THENMND=64 

110 NP=MP+D(MD}:P=PEER (NF): TFRF« 3S 2THENPOKENF,E 

§:CC=CC+1:G0T0180 

120 MP=NP:FORENF,NS 

125 WAIT(11-S5L) 

1306 NC=CF+D (CDi :C=PEER (NC) 

135 TFC=32ANDRNO (1) 2. O23 THENCPENC: FORECF,CS:60T 

G20 

140 M=CD:h=0:D=SeINTCRND (Li #4) :REPEST: B=Bids De 

D+2: TF Ds6THEND=G 

145 [FPEER (CP+D (D0) ) =S2THENM=D 

150 UNTILB=40RN<¢ 30D 

160 NC=CP+D (Mi :C=PEERK (NC) s TFC=S32THENCP=NC: CDEK 

:FORECF,CS:GO0TQ20 

176 FOKECF,CS:NC=MC+i 

LBo EXPLODE: WAIT (200) 

{50 NEXT 

200 CLO:PRINT’ The final score was: "sPRINTSFE Ct 

3); "Computer : “;3CC 

210 FPRINTSFC(18}s "You : "EMe 

220 END 

900 TLe£BBD2: TReLBRFS: BL=£BECA: BR=EBEED: LL =40 

F710 MS=9L:CS=92:;WS5=93 :ES=94 

#15 FORZ=917094:GOSUBZ000: NEXT 

920 MC=0:CC=0:MD=0:CD=2 

930 DCO) =-LLID CLI S-LLtisD (2) el: DS) =LLtl 

S40 D4) SLi: DiS) =LL-1:0(6)=-1:0(7)=-LiL-1 

950 DT=TR-TL:DL=BL-TL: THEINT(DT/ 3) 

S80 GOSUBSOOO 

toda CLS: iNki:sPAPERS:60TO15 

EOQOO XX=4608O+2e8:FORO=XKXXTORK +7: REAOU: POREG,U: 

NEXT: RETURN 

2010 DATALZ,12,16,51,51,18,12,12,12,30,30,635,6 
9,30,12 


DATAGS 63,63, 634 05463463, 63,042,32,1,16,4 








S000 CLS:FGRASTLTOTRIPOKEA,WS:POKEA+OL WS: NEXT 
2010 FORA=TLTGSLSTEPLL: FOREA WS: POREAt+DT WS: NE 
AT 
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S020 MP=TL+THt+iO#LLs CP=TR-TH+LG#lL Li ND=ao: Cbs 
3025 C#$="Computer : "“+STR#(CCISMF="You : "+5TR 
$(MC) 

3030 PLOT4,24,C#:PLOTZ5, 24, 4% 

30635 PLAYO,1,4,109 

3040 POREMP,M5:POKECF,CS:RETURN 

5dq00 CLS:PRINT"You will leave a track behind": 
PRINT"you as you move. The computer” 

5005 FRINT"will also leave a different track." 
:PRINT"The first one to bump into a" 

5G10 FRINT"track loses the game.":FRINT: PRINT" 
How many games do you want’;:INPUTNG 

S015 PRINT:FRINT"What skill level, 1. slow, to 
"SPRINT"1O, fast"s:INPUTSL 

S020 IFSL¢LiORSLFLOTHENSOIS 

5040 PRINT: PRINT"Controls - use the cursor key 
Peat 

S050 PRINT: FRINT"Fress any key to begin. *:REFE 
AT:GETA#:UNTILA#¢ 2" "RETURN 
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This game requires the player to try and wipe out a screen full of 
targets by hitting them with a ball. The game has several useful 
routines which can easily be incorporated into other programs. 

A few years ago one of the early popular arcade games was 
Breakout, where the player scored by knocking bricks out of a 
wall. The game that follows is not a Breakout variation, but 
Breakout can easily be programmed using the routines given here 
for bouncing the ball off the walls of the playing area. 

The big problem with this type of game is that writing the 
program to use low resolution graphics makes it impossible for 
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the ball to bounce at a great variety of angles. To enable the player 
to make different shots, the player’s bat consists of 3 symbols, 
and the ball bounces in a variety of ways depending where on the 
bat it strikes. 


Program notes 


10 Keyboard click and cursor off. 


20-30 Keyboard controls to move bat left, 20, to stop it, 25, or to 
move it right, 30. 


40-50 Bat move routine. 40 finds the new middle position of the 
bat after movement, and checks that the bat will not be off-screen 
or on top of the ball. 50 moves the bat to its new position. 


55 Score — number of crosses hit so far. 


60-180 Ball move routine. 60 finds the new ball position. 65 checks 
if this is a cross, in which case the score is incremented. If the new 
position is empty ora cross, the ball can be moved to that position 
with no difficulty, 70. Complications arise when the ball hits a 
wall or the bat, as it must bounce in a different direction. 80 takes 
care of bounces off the top wall, and 90 does a similar job for side 
wall bounces. 110 is needed in case the ball is about to hit the 
bottom left or bottom right of the walls. Whereas normally the 
ball will be reflected when it strikes a wall, doing so at the very 
bottom edges sends the ball out of the playing area on-screen and 
into free memory! So if a ball is about to strike BL or BR, its 
movement is just reversed and it travels back along its path. The 
beginning of 110 can be omitted: this causes an occasional 
reversal of movement as the ball bounces from wall or bat. 120 
and 130 determine the new ball movement if the bat is struck, 130 
deflecting the ball slightly if the right or left sides of the bat have 
been struck. Having done all this, it is possible that the ball has 
just been deflected from one wall onto another, so 140 returns to 
the start of the ball move routine to check that the new position is 
clear. 150 erases the ball from its old position, and if the new 
position is not off the bottom of the playing area due to the bat 
missing the ball, the ball is drawn to its new position and the 
process begins again. 160 checks if all the crosses have been hit, 
175 increases the ball count if the ball has gone off screen, and 180 
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pauses before a new ball comes into play, 185 chooses a random 
start position near the bottom of the playing area to poke the new 
ball into play. 


190-210 Score and comments at end of game. 
900-950 Initialisation routine. 


960-1150 Game set-up routine. 1100 draws the top wall. 1105 the 
side walls. 1110-1130 poke the target crosses into position on 
screen. 1110 sets up the start and end position of each row of 
crosses, EX being the amount added on so that alternate rows are 
staggered. 1120 counts the crosses, pokes them into place. 1130 
works out the start and end positions for individual rows of 
crosses. Finally, 1140 pokes the bat into position in the middle at 
the bottom of the playing area. 


2000-2020 User defined character creation routine. 


5000 onwards — instructions. 


Important variables 


BC Ball count — how many balls used so far. 
BM Ball movement. 


BT Total number of balls allowed — when BC reaches this 
value, the game ends. 


CH Number of crosses hit by ball. 

CT Total number of crosses. 

DL Distance along left of screen. 

DT _ Distance along top of screen. 

EP End position for poking crosses on screen. 
EX _ Extra added to stagger rows of crosses. 
L2 Double line length LL. 

M Bat movement. 

MP Position of middle of bat. 

NB New ball position. 
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NP New bat position. 

SP Start position for poking crosses on screen. 
Symbols used 

BS Ball symbol. 

CS Cross symbol. 

LS Left bat end symbol. 

MS__— Middle of bat symbol. 

RS Right bat end symbol. 

SS __ Side wall symbol. 

WS _ Top wall symbol. 

10 PRINTCHR$ (6) CHRE C17): G0TOF00 


rae) 


AF=KEY$: IFAS=CHRE(G) THENN=-i 


25 IFAS=" "THENN=0 
30 IFA$=CHR# (9) THENM=L 

40 NP=MP+M: [FNP =BLORNP >=BRORPEEK (NP +) =BSORNE 
=MPTHENSS 

50 POKEMP-M,32:MP=NP:POKEMP-1,LS:POKENF,MS: POR 
EMP+1,RS 

55 PLOT27,24,STR$ (CH) 

60 NB=EP+BM 

65 PB=PEEK (NB): IFPB=CSTHENCH=CH#1 

70 IFPB=320RPBR=CSTHENISO 

80 IFPB=WSTHENBM=BM+L2:PLAY3,0,1,100:SOUND3,10 
0,0:G60TO80 

90 IFPB=SSTHENBM=L2*(BM/ABS (BM) )-BMsFLAYS,G,4, 
100: S5Q0UND3,100,0:G0T060 

110 IFRND(1)<. OSORNB=BLORNB=BRTHENBM=- BM: GOTU6 
0 

120 PING: BM=BM-L2: IFPB=MSTHEN6O 

130 NB=BP+BM+1: [FPB=LSTHENNB=NB-2 

140 GOTO6S 

150 POKEBP,32:BP=NB: [FBP<BLANDCH¢CTTHENPOKEBP, 
BS:GO0TO20 

160 IFCH=CTTHEN190 

170 PLAY7,0,1,1000:FORQ=17T010:SOUND3,0,0:NEXT 
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175 BC=BC+i: IFBCBTTHENL GO 

180 WAIT (200): BM=-LL+i: [FRND(1)>.57THENBM=BM-2 

185 FLOTLZ,24,S5TR#(BC):BP=(BL-LL)+INT(RND CL) #6 
OT-S)42):POKERP,B5: 607020 

190 WAIT (S00):CLS: TFCH=CTTHENFRINT"You got the 
m alli":END 

200 PRINT"You hit “:CH;" crosses aitogether." 

Zio END 

900 TLefBBD2: TR=£BRFS: BL=£RECA: BR=£BEED: LL a4 

910 CS=43:RS=9i:LS=92:N5=93:R5=94:95=95:WS=96 

915 FORZ=917096: GOSUBZ000: NEXT 

920 CH=O:RC=0:BT=3:CT=0 

950 OTSTR-TL:OL=BL-TLiL2=LlLe2:SP=TLt+L ltl: EPs 
-L2tl 

G60 CLS:PRINT*"Do you want instructions (Y/N) "; 
965 INFUTA#: IFAS="V¥"THENGOSUBS0O00: GOTOLGO0 

980 GOSUBSO50 

1000 CLS: INE1L:FAPER7 

1100 FORA=TLTOTR: FOKEA,WS:NEXTA 

1105 FORASTLTGBL-LLSTEPLL: POREA, SS: FPOKEA+DT,5S 
:NEXTA 

1110 A=SP:B=SP+DT:Eke-1 

{i20 CY=CT+i:POREA,CS:A=At2: IFFEERK (A) =32ANDPEE 
K(A-1)=32THENI 120 

1130 EX=-Ex:A=SF+tEX+L2:5P=A: B=A+DT: IFAS EFTHEN] 
120 

1i40 MPSBL+(NT(OT/2) :POKEMP-1,05:POREMNF MS: POR 
EMP+1,F5 

LisG PLOTS,24, "BALL: ":FPLOTI2,24,57R¥# (BC): PLOTI 
9,24, "SCORE: ":GOTGL75 

2000 XX=4O0G+Z2#8:FORG=AXTOXX+7:READUsFOKEG,U: 
MEX T:RETURN 

2010 DATAO,12,18,35,33,18,12,0,63,56,468,32,0,0 
50,0,63,0,0,0,0,0,0,.9 


DATAS 








fy oy O,0,0,0,51,63,63,63,43,635,63 





204,65,62,64,63,63,645,64,45 

oG00 CLO:PRINT"In Wipeout you must try to wipe 
"SPRINT out as many targets as you can" 

au05 FRINT"by bouncing a ball onta them. Your” 
tFRINT"bat moves along the bottom af” 

S010 PRINT"the screen - its left side will":PR 
INT"detiect a ball to the left and its" 

aO20 FRINT*right side deflects te the right. ": 
FRING “Any bali missed is lost, and you" 
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5025 PRINT"have ";BT3" balis to try and hit"iF 
RINT“ail the targets with." 

5050 PRINT: PRINT"Controls - use the cursor key 
s to":FRINT"move the bat ieft or right." 

5055 FRINT"Press the space bar to stop the bat 
“SPRINT"from moving." 

5060 FRINT"Press any key to begin. ":REFEAT:A#= 
KEYS: UNTILA$< >" "2 RETURN 
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This program turns up in many guises: the idea is that the player 
seeks to evade some extremely stupid pursuers by luring them 
into traps. In some variations, the pursuers are robots, destroyed 
if they strike electrified posts scattered randomly around. Here 
the enemies are blind, flesh-eating zombies, who can be 
eliminated by making them fall down potholes. Another version 
has the player as a swimmer fleeing sharks. The latter die if they 
hit each other or any of the jellyfish that float around. The pattern 
is clearly the same, so if the zombies do not appeal, define a few 
characters of your own and change the program to one of the 
other versions. 
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Zombies is an enjoyable game to play, as it can either be played 
as a game of skill, or, with minor amendments, as a game of fast 
reflexes. As set up at present, the zombies will only move after the 
player has made a move by inputting a value at the keyboard, 
lines 20-100. Changing the GETA$ in 20 to A$=KEY$ and 
eliminating the REPEAT in 20 and deleting 100 means that the 
zombies will now move without waiting for a keyboard input. 
You will need to add: 105 IIMD>7THEN140. 

One thing that confuses many people in this game is the 
zombie movement. Zombies always move towards you. This 
does not necessarily mean that they move in the same direction as 
you have just moved. They move so as to minimise the distance 
between you and them. This sometimes involves moving in the 
same direction, but on other occasions the zombie will move 
differently. After you have played a few games it will become 
easier to trap zombies in potholes as you will be able to tell in 
which direction they are going to move. Then is the time to try a 
higher skill level . . . or move on to the real-time game! 


Program notes 


10 Keyboard click and cursor off. 
20-100 Keyboard controls. 


115-130 Player move routine. 110 erases the player’s symbol from 
its old position and finds the new position. 115 checks if this 
position is a pothole, and 120 checks if it is a zombie. 130 pokes 
the player’s symbol to the new position. 


140-255 Zombie move routine. 140 finds the player’s co-ordinates 
relative to BL. 150 picks out each zombie position from the array 
Z(_ ), and checks if that position is empty or a pothole. In either 
case the zombie has been killed and can no longer move. 160 finds 
the zombies’ co-ordinates relative to BL, and these co-ordinates 
are compared to those for the player so that the program can 
decide which x and y axis movements the zombies should make 
to bring them closer to the player, lines 170-200. 210 erases the 
zombie from its old position and examines the new position. 220 
checks for a pothole, 230 checks if the new position is that of the 
player, and 240 ensures that if there is already a zombie at the new 
position, the other zombie does not move on top of it. 250 pokes 
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the zombie to its new position, and 255 completes the loop. 


260-310 Game end routine. 260 checks if all the zombies are dead. 
If not, provided the player is not dead, the game continues, 270. 
275-310 comment on your fate and give the score. 


900-950 Initialisation routine. 


960-1190 Game set-up routine. 1100 and 1105 put potholes all 
around the screen edge. 1120-1145 poke potholes or zombies at 
positions depending on the outcome of RND. 1150 chooses a 
random position on the main diagonal for the player’s symbol, 
1155 ensures there is not a zombie at that position, and 1160-1180 
clear the surrounding area of the beasts. 1190 pokes the player’s 
symbol on-screen and the game begins. 


2000-2010 User defined character creation routine. 
3000-3020 Routine used when player falls down pothole. 


5000 onwards — instructions and setting of skill level. 


Important variables 


CP Chance of pothole as these are poked at start. 
CZ Chance of zombie as these are poked at start. 


EP _ End position as potholes and zombies are poked to the 
screen. 


MD_ My direction — used to pick movement from array D( ). 
MK _ Man killed flag — set to 1 to show death. 

MP My position. 

MX Myx coordinate relative to BL. 

MY My ycoordinate relative to BL. 

MZ Maximum number of zombies at particular skill level. 
NP My new position. 

NZ Number of zombies present in game. 

R Random number less than 1. 

SL Skill level. 
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SP __ Start position for poking potholes, zombies. 
XM Zmovement for zombie. 
YM Ymovement for zombie. 
ZK Number of zombies killed. 
ZN New zombie position. 
ZP ‘Present zombie position. 
ZX Zombie x coordinate relative to BL. 


ZY Zombie y coordinate relative to BL. 


Symbols used 


MS Mysymbol. 
PS Pothole symbol. 
ZS Zombie symbol. 


5 REM ZOMBIES 

10 PRINTCHR# (4) CHR#(17):GOTO900 

20 REPEAT: MD=8:GETAS$: I[FAS="W" THENMD=0 
30 IFA$="E"THENMD=1 

40 IFA$="D"THENMD=2 

50 IFAS="C"THENMD=3 

60 IFAS="X"THENMD=4 

70 IFA$="Z"THENMD=5 

80 IFA$="A"THENMD=6 

90 IFA$="Q"THENMD=7 

100 UNTILMD<8 

110 POKEMP,32:NP=MP+D (MD): P=PEEK (NF) 
115 IFP=PSTHENGOSUB3000: GOTOZI0 

120 IFP=ZSTHEN280 

{30 MP=NP:POKEMP MS 

140 MY=INT((BL-MP) /LL) +12 MX=MP-BL4MY#LL 
150 FORZ=1TONZ: ZP=Z(2):P2=PEEK(ZP):1FP2=320RF2 
=PSTHEN255 

160 ZY=INT((BL-ZP)/LL) +1: ZX=ZP-BL+ZY#LL 
170 XM=O: IFZX<MXTHENXM=1 

180 IFZX>MXTHENXM=-1 

190 YM=O: IFZY<MYTHENYM=-LL 
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Z00 ITFZY>MYTHENYME=LL 

210 ZN=ZF+XKN+YM:F=FEEK (ZN) :FOREZP, 32 

220 IFP=FSTHENZE=ZE+1:Z2(Z)=ZN:GOTO255 

2350 ITFF=MSTHENME=1 

240 IFF=ZSTHENZN=ZP 

245 SOUND1,Z#10,G:PLAY1,0,4, (ABS(ZX-MX)) 

250 Z(2Z)=ZN:POKEZN,Z5 

299 NEAT 

260 [TFZK=NZTHENPLOT2,24,"Well done! There are 
no zombies left! *:G0TG285 

265 S#="Zombies killed = "+57TR#(ZRI:FLOT8,24,5 
$ 


+ 


70 PLAYO,0,0,0: TFME=OTHENZO 

275 PLOTS, 24, "The zombie crunches you up. ":SGU 

NDS, L0g,d: PLAYO,1,4,100 

290 WAIT(200) :FLAYO,&,0,4 

285 WAIT i400) 

290 CLO:FRINT" You killed “;Zky" zombies out of 
"ENZ 

300 FRINT"This i6 a success rate of "SINT(ioo# 

ZE/NZ)3" percent” 

305 FRINT®at skill level "“sSb 

310 END 

FOO OIMZ (30): TLS£BBD2: TRELBBFS: BL=£ RECA: BR=E BE 

EC:LL=40 

910 MS=94:P5=95:728=96 

915 2=MS:G0SUBZ000: Z=P5:G05UR2Z000; 2=25:G05U826 

ag 

920 LEO: MR EOrNZ=30:CR=, 

P30 DCOIS-LLIBCLis-LLt+ts if 2:=1:0¢03)=LL+41 

940 D4) Lb 10S) =LL-1:0(6)=-i:D(7)5-tb-1 

930 DT=TR-TL:DL=BL-TL:SP=TLtLiti:EP=BR-LL-1: B= 

SF 

960) CLS:FRINT"Do you want instructions (ys) "3 

965 INFUTA#: TFAF="¥"THENGOSUBSO00: GOTOLOO0 

990 GOS5SUBS050 

tooo CLS: TNE4:FAFERS 

1i00 FORA=TLTOTR: FOREA,FS:FPOKEAtGL,PS:NEXT 

1105 FORA=TLTGBLSTEPLL: FORER, PS: FOREA+OT. PS: NE 

AT 

Liz0 FORS=87TOR+OT-2:R=RND iis PFRECPTHENPOREA.F 


Jt BES ERGO CER EM ES EOE MME ERE NESS 
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1145 NEXT: B=B+LbL: (FBeEPTHENI 120 

{150 MP=SP+D (3) #INTCRND CL) # tL Ss) +1) 

1155 IFPEER (MFI =ZSTHENLIS0O 

1160 FORD=OTO7:PP=MP+O (M0): [FPEER (FP) =Z5THENZE 
=ZK+1 

1180 POREPP, 32: NEXT 

Lif POKEMP,4S:G60T026 

2000 XX=46080+2*8s FORG=XXTOXX+7:READU: POREO,U: 
NEXT: RETURN 

2010 DATAI4,14,4,31,4,4,19,17,12,16,33,33,33,1 
6,12,0,4,14,21,31,17,31,21,21 

3000 PLOTB,24,"You fail into a pothole. " 
3010 FORG=1TOL0G:;SGUNDi,@,4: NEXT: EXPLODE 

3020 PLAYO,O,0,0:WAIT(S00):RETURN 

5000 CLS:FRINT"You are trapped on Zombie islan 
d":FRINT' which is full of deep potholes," 

5005 FRINT'The zombies on the island want to": 
PRINT’ eat you, and although they are" 

50G1G FRINT"blind when you move they will hear" 
:PRINT" vou and rush towards you. I[f " 

S0iS PRINT"are careful you can make the “:FRIWN 
T*zombies fall into the potholes. If" 

SG20 PRINT"you fail you will be eaten. ":FRINT: 
FRINT"'Controls - use the keys around the" 

5025 PRINT"S key to move. ":PRINT:FRINTSPC( 1S): 
"GQ WE":PRINTSPC(17)3"A S D"sPRINTSPO(18)3"2 & 
Gh 

5650 PRINT: PRINT"Input your skill level, 1, ea 
sy, to 10, difficult"; 

5060 INPUTSL: TFSLe1ORSL21OTHENSOSO0 

S070 CZ=CF+5L#.008: RETURN 
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Program 


























One of the great pleasures of computing is that the computer can 
be a ready made opponent in any number of different games. It is 
a real challenge to develop a program which enables the machine 
to play a game in an intelligent manner. The real test is if the 
program is good enough to beat its creator, and the program that 
follows has passed that test many a time! 

In essence the game is the familiar noughts and crosses, but it 
is made much more challenging by being played on a 4 by 4 by 4 
cube, the object being to get a straight line of four Os or four Xs in 
any direction: 
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A winning line when playing noughts and crosses on a 4 by 4 by 4 cube. 


It would obviously be difficult to show the cube on-screen, and 
even more difficult to show the moves clearly, so the cube is 
‘sliced’ into four sections, and these are displayed side by side. It 
is important to remember when playing the game that these 
sections are actually on top of each other, and the following 
diagram gives an example of a line of Xs which goes through all 
four sections: 





Representation of the cube on-screen, showing a winning line of Xs. 


If this is hard to understand, try to imagine the four sections 
piled on top of each other from left to right: the Xs then form a 
vertical line through the cube. 

The method by which the program chooses its move is a 
complex one, but in outline the procedure is as follows. 


47 


20 Games for the ORIC-1 


You make a move. The computer finds all the possible straight 
lines passing through the position where you have just moved. It 
then examines all those lines to find out the situation in each line: 
for example, your move might have created XXX. in one line and 
OX.O in another. . 

Every type of line has been given a value at the start of the 
program. XXX. would have a high value, because unless the 
computer stops you, you are going to win next move! The 
computer keeps a running total stored for every position in the 
cube, and it now adds the line value to the running totals for 
every position in the line. The running totals for all the positions 
which make up XXX. would now be very high, because a large 
value would have been added to each of them. On the other hand, 
the computer would rate a line like OX.O as one of little value, 
because neither side can make a line of four on that line. 
Consequently, the computer would only add a small amount to 
the running totals for each of these positions. 

Once the computer has found all the lines affected by your 
move and changed all the running totals it is now ready to make 
its own move. It does this by looking through the running totals 
for every position on the cube, and picking for its move the 
poition with the highest running total. Any position with a high 
total must be on several valuable lines, for example O.OO or XXX. 
or perhaps at a point where two lines like OO.. cross and a single 
move will make both lines into OOO. 

Basically, the computer chooses as its move the position which 
at the same time lies on several lines where it has already placed a 
O, and/or also lies on lines which contain several Xs. The 
program can be beaten, but you'll have to play very well to do it! 


Program notes 


10 Keyboard click and cursor off. 


20-100 Move input routine. 70 allows you to delete a move if you 
change your mind, 80 checks that the move is legal. 


105-150 Computer move routine. The move is selected as 
described above. 


130 counts the moves in twos (for one O and one X), and 140 
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checks if move 64 has been reached, in which case the game is 
drawn. 


200-320 Board draw routines. Each position in the cube is stored 
in the array C(A,B,C), positions with a value of 1 being empty, 2 
being O, and 3 being X. 300-320 checks each of the array values 
and plots a ., O, or X in the appropriate position. 


400-540 Line check routine. This finds which of the 13 lines which 
pass through the cube the move position lies on. 


600-630 Highest total routine. The computer examines the 
running total for every position in the cube, and saves the highest 
total in H and the coordinates of that position in Al, B1 and C1, 
line 620. These become the coordinates of the computer’s move, 
630. 


700-950 Line value routine. Once a line has been found in routine 
400, the computer works out the situation on that line and adds an 
appropriate value to the running total for every position on the 
line. 


1000-1050 Valuation routine. Once the type of line has been 
found, this supplies a suitable valuation of the situation in that 
line. 


1100-1210 Congratulatory messages for the winner. 
1800-1820 Erases abandoned or illegal moves. 
1900-1980 Initialisation routine. 


5000 onwards — instructions. 


Important variables 


A$ Player’s move as a string. 


C( ) Information on all positions within cube: values of 1 
indicate an empty position, 2,aO, and3,aX. 


CO Count for player’s moves as they are input. 


is Flag. When set to 0, sub-routine 700 multiplies together all 
the C(_) values in a row to find the current line situation. 
With F set to 1, sub-routine 700 adds the value for that line 
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M 


PC ) 
VC) 


situation to the running totals for every position held in 
V( ). 


Line situation — found by multiplying all C(_) values fora 
line. 


Highest running total for a position. 


Illegal move — an attempt to move into an already 
occupied position. 


Line number situations. G is compared to these, and when 
a matching situation is found, the value of that line is 
given by the array value P( ). 


Move counter. 
Points for a particular line situation. 


Running totals for all positions in cube. 


10 PRINTCHR# (6) CHRE(17):G0TO5000 

20 INK4: PAPERS: PLOT11,16,"Type in your move" 
25 FLOTI3,18, "PLANE: ":PLOT13,20,"ROW: ":FLOTIS3, 
22,"COLUMN: " 

SO CO=LiK (CL) =0rk (2) 50:K (3) =0: REPEAT: REPEAT: GET 


Ag 


40 UNTILAS="1"ORA$="2"ORAS="3"ORAS="4"ORA$="D" 
50 TF (A$<>"D") THENK (CO}=VAL (A) :PLOTZ1, 16+2*CO 
As: CO=CO+1 

60 UNTILCO=40RA$="D" 

70 IFAS="D"THENGOSUBI G00; GOTO20 

BO IFC(K (1) ,K (2) KS) ) SL THENIL=1: GOSUB1B00:G0T 


020 


90 FING 

LOG ASK (1) :B=K (2) 205K (3):0(0,8, C1 =3:G0SUB40036 
OSUB300: GOSUBR6OGO: GOSUBIBOG 

105 INKi:FAPER7 

{10 PLOTLi,16,"My move is:" 

120 PLOTIS,18, "PLANE: ":PLOT13,20, "ROW: ":FLOTIS 
yee," COLUMN: " 

125 FLOTZ1,18,STR#(A):PLOTZ1,20,5TR#(B): PLOT? 1 
,22,STRE(C) 

130 M=M+2:0(8,B8,C)=2:GOSUB400: GOSUBS00 


140 
50 


TFM=64THENGOSUBZ000: END 
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150 PING: GOSUBi800:G0TOZ0 

200 PLOT1,2,"1 2 3 4 1234 1 
3 4" 

210 FORB=i17T04:FORA=17T04:FORC=1TO4 
220 GOSUB300 

240 NEXT: NEXT: NEXT 

250 PLOT8,24,"Press D to delete move":RETURN 
300 X=(A-L)#10+24C-i: YSZ" (Bt): PF=". "2 Ci =C (A,B 
,C):TFC1=2THENP#="0" 

210 [IFCL=3THENP#="X" 

320 PLOTX,Y,F#:RETURN 

406 FORV=1TO3:GOSUB700: NEXT 

410 IFA >BANDB<¢ }CANDA* ¢CTHEN4SO 

420 IFA=BTHENV=4:G05UB7¢60 

430 IFA=CTHENV=5: GOSUB7O6 

440 IFB=CTHENV=6: GOSUB/00G 

450 IFA< >5-BANDA* 35-CANDBé 25-CTHENSSG 

460 IFA=S5-BTHENV=7: GOSUB/00 

470 ITFASS-CTHENV=8: G05UB700 

480 ITFR=S-CTHENV=9: GOSUB790 

490 [FA=BANDA=5-CTHENV=10: GOS5UB70G 

500 IFA=CANDA=5-BTHENV=11:50S5UB700 

5i0 [FA=5-CANDB=CTHENV=12: GOSUB790 

530 [FA=BANDB=CTHENV=13: GOSUBR700 

540 RETURN 

600 H=0:FORA=1704:FORB=1704:FORC=i704 

610 J=V(A,B,C):1FC(A, B,C} si GRUSHTHENG SO 

620 IFJ>HOR(J=H) ANDRND(1!}3.5THENH=J:A1SA: BI=8: 
Cisc 

630 NEXT: NEXT: NEXT: A=Ai:B=B81:C=C1i: RETURN 

700 FORT=17TO4:A1=A: Bi=B:C1=C: GNVGOGSUBSS0,860,8 
70 

765 TFVe4THEN720 

710 AL=T:ONV-3G05U8860,870,880,890, 700,710,926 
5730,940,959 

720 [FF=1THENViAL, BL, CLisV(AL, Bi, Cli+2 

730 [TFFSGOTHENG=G4#C (AL, B1,Ci) 

Pad NEXT: (FPSO THENFHRL: GOSUBiOGO GOTOso0 

750 FeO:RETURN 

850 @i=T:RETURN 

860 Bist: RETURN 

670 Cl=T: RETURN 

B80 Al=A:BisT:Cil=T: RETURN 

650 B1l=5-T: RETURN 


fed 
ted 
Be 
rs 
ion 
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FUG CL=S-T: RETURN 

7iG AL=ArBL=T:CL=S-Ts RETURN 

P20 BLlST:Cisi-T:RETURN 

P30 Glsh-T:ClstsRETURN 

940 Blsa-TiCiss-TiRETURN 

950 Bisel: Ci=T: RETURN 

{oo TFG=14THENGOSUBI90: GOSUBL LOO: END 


1O10 (FG=S1THENGOSUBS00: GOSUBI200:END 

LO2G ITF (G=6)ANDC(6,8,C) =2THENZ=-10:G=t:RETURN 

1930 [Fo/C(A,8,C)=4THENZ=0:G=1:RETURN 

i940 FORN=L7T09: 1FG=L(N) THENZ=F (CN) 

L050 NEXT:G=1: RETURN 

1100 GOSUBISGO:FORX=1TOSOSTEP7: FORY=161TG245TEF 
L110 PLOTX,¥,"2 WIN! "SNEXTS NEXT: EXPLODE: RETUR 
N 

1200 GOSUBLBCG:FORK=ILTOSOSTEPS: FORY=146T024STEF 
2:PLOTX,¥,"YGU WIN! ® 

1210 NEXTINEXTSEXPLODE: RETURN 

{68G0 TFIL=1THENIL=O:;PLOTI3,146,"ALREADY GCCUFIE 


i) "s SHOOT: WAIT (500) 
BiG PERT ES RN. *ePLOT 
21,18," Bee earn e 


1820 PLOT21,22," 

1830 RETURN 

1900 DINC(4,4,4),Vi4,4,4) 

1910 G=l:FORA=17T04:FORB=1T04:FORC=1T04 

1920 Y=0: [FASBANDA=CTHENV=10 

1930 IFA=CANDA=5-BTHENV=10 

1940 IFA=5-CANDB=CTHENV=16 

1950 IFA=BANDA=5- CTHENV=10 

1960 ViA,B,Cl=ViC(A,B,C)=L:NEXT: NEXT: NEXT 

1970 FORN=1T09:READL(N) ,P(N) :NEXT:CLS:G0SUBZ200 
:GOTOZ0 

1980 DATAS,10,2,14,9,98,4,100,27,700,8,1000,6, 

-14,18,-98,12,-100 

5000 CLS: INKS: PAPERS: PRINTSPC(13 };"3D 0s and k 


5010 PRINT: PRINT" In this game you must try to 

get":PRINT"4 Gs in a line to win." 

3020 PRINT* The game 1s played on a 4x4x4 cube" 
:PRINT"and each plane of the cube is" 

5030 FRINT"shown on the screen. To type in":PFR 
INT"a move, you must type first the" 
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5040 PRINT"PLANE, then the ROW, and finaliy":F 
RINT"the COLUMN where you want to" 

5050 PRINT"place your G. If you change your":F 
RINT"mind about a move, press D for" 

5060 PRINT"DELETE. There will be a pause":FRIN 
T'of a tew seconds after your move” 

5070 FRINT"before GRIC makes its reply.” 

SOBO FRINT"Good luck - you'il need it! ":FRINT" 
Fress C to centinue.” 

5090 GETA#: [FAF< FC" THENSOSG 

sido BOTO1900 
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Sheepdog 
Trial 








This program is based (not surprisingly) on a sheepdog trial. The 
sheep move at random until the dog gets within a certain 
distance: from then on the sheep always move directly away from 
the dog. You must use your dog to guide the sheep into the pen 
within a time limit. 

If the sheep are allowed to wonder completely at random 
throughout the field, they can end up against a fence or jammed 
into a corner. As the sheep move away from any nearby dog, the 
player would have no choice but to retire his canine counterpart 
to some distance from the sheep, and hope that random 
movement will at some point bring the sheep out into a position 
where they can once more be herded. 
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The program therefore ensures that the sheep move no closer 
than one character position from the fence surrounding the field. 
It is then always possible for a dog to get ‘behind’ the sheep and 
herd them. 

It is very difficult to herd more than two or three sheep into the 
pen. The captive sheep seem to possess an irresistable urge to 
wander back out of the pen just as your dog rounds up another! 

The game is easily converted to run in real time by omitting the 
REPEAT from line 20 and changing line 100 to IIDD>8THEN140. 
Line 110 provides the shepherd’s whistle as the dog is instructed 
to move in different directions, If this proves too irritating, just 
omit the line! 


Program notes 


10 Keyboard click and cursor off. 


15-140 Dog move routine. The dog moves faster than the sheep: 
this is achieved by enabling the dog to move two or three times 
when the sheep only move once, and is the reason for the loop 
running from 15-140. The keyboard control routine runs from 
20-100, 105 makes the dog face right or left according to its 
movement, 110 gives the shepherd’s whistle, varying slightly for 
different directions of movement. 120 checks that the dog’s new 
position is not occupied, and 130 moves the dog. 


150-220 Sheep move routine. 150 finds the dog’s x and y co- 
ordinates relative to BL, and 160 does similarly for the sheep. 165 
finds the sheep’s distance from the dog in terms of x and y 
displacement, and if the sheep are out of range they move 
randomly. Otherwise 170-180 find the appropriate movement 
which will take the sheep directly away from the dog. 185-190 
find the random movement for sheep out of range, and 200 checks 
the new position for all sheep to make sure that the new position 
is unoccupied and not adjacent to a fence. 210 moves the sheep 
and 220 completes the loop. 


230-270 Lines 230-250 check the pen to see if all the sheep are in 
yet. If not, and the time has not run out, the dog has another 
chance to move, 260. When the time runs out 270 checks if all the 
sheep have been rounded up. 
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280-440 Any dog rounding up all the sheep within the time limit 
is congratulated, 280. Other dogs are disqualified, 300-310. 350 
saves the number of the best dog and its time. If all the dogs have 
taken part, 370, the winner is announced at 400. Otherwise the 
next dog is called to the field, 380. If no dog rounded up all the 
sheep, the game finishes with an abusive message, 410-420. 


900-950 Initialisation routine. 


960-1180 Game start routine. 1050-1090 draw the fence around the 
field and the pen fence. 1110-1150 randomly position the sheep 
within the field, 1115-1120 making sure they are away from the 
fence, and 1130-1140 ensuring they are not placed in the pen. 1150 
pokes the sheep into their selected positions. 1160 chooses a 
random position for the dog, 1165 keeping it out of the pen, and 
1170 ensuring the position isn’t already occupied. 1180 pokes the 
dog to the screen. 


2000-2020 User defined character routine. 


5000 onwards — instructions, selection of number of sheep to be 
rounded up during the trials. 


Important variables 


BC Bottom corner inside pen. 

BD Number of best dog in competition. 
BI Time for best dog. 

DC Dog count — gives dog number. 


DD _ Dog direction of movement: used to select movement from 
array D( ). 


DN Dog number — how many there are in the competition. 
DP __ Dog position on-screen. 


DR Dog rounding-up distance. Sheep further away than this 
move randomly. 


DV ___ Dog velocity. High values of DV mean the dog moves 
many times every time sheep move once. 


DX Dog x coordinate relative to BL. 
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DY Dog ycoordinate relative to BL. 

LB Left bottom pen corner. 

LT Left top pen corner. 

ND _ New dog position. 

PL Distance along left side of pen. 

PT Distance along pen top. 

SD Sheep direction of movement: used to select movement 
from D( ). 

SN Sheep new position. 

SP Sheep present position. 

SR Number of sheep rounded up so far. 

ST Total number of sheep to be rounded up. 

SX Sheep x coordinate relative to BL. 

SY Sheep y coordinate relative to BL. 

TC Top corner inside pen. 

X1 = Xcoordinate difference between dog and sheep. 

XN  X movement when sheep is within dog rounding-up 
range. 

Y1 - Ycoordinate difference between dog and sheep. 

YM  Y movement when sheep is within dog rounding-up 
range. 

Symbols used 

DS Dog symbol, either facing left or right. 

FS Fence symbol. 

PS Pensymbol. 

SS Sheep symbol. 
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10 PRINTCHR# (4) CHRE(17): 6070700 

15 FORD=LTODV 

20 REPEAT: DD=8:GETAS: IFAS="W"THENDD=0 

30 TFAS="E"THENDD=i 

40 TFAS="D"THENDG=2 

SO TFAF="C"THENDD=3 

60 [FAS="K" THENDD=4 

7O TFAS="Z"THENDD=5 

BO IFA$="A"THENDD=6 

90 IFA#="GQ"THENDD=7 

95 THT+isTH=STRE(TISPLOT22,25,7$ 

160 UNTILDD<6 

105 DS=9t: IFDD<4THENDS=95 

110 FORG=1TO3:FORU=DDTOS0: SOUND ,U,S:NEXTs NEXT 
:SGUND1,0,6 

120 ND=DF+D (DD): IFRPEEK (ND) < 232THENI40 

130 POKEDP,32:0F=ND:FOKEDF,DS 

140-NEXT 

150 DY=INT(CBL-DP) /LLI +i: DX=DP-BL+DY#LL 

160 FORS=1TOST:SP=S(S5):SY=INT(CRL-SP)/LLI+125% 
=SP-BL+SY#Lb 

165 YLSSV-DYski=SX-DXs TFABS (YI) SDRORABS (XL) DR 
THENIBS 

170 XM=O:TFX1<¢ FOTHENXM=X1/ABS(X1) 

175 YM=Or:TFYL< sOTHENYM=Y1L/ABS(Y1) 

{80 SN=SP+XM-YMN#LL: SASSN+XM-YM*LL: GOTO200 

185 SD=INT(RND (1) #12): 1FSDe7THENZ20 

190 SN=5F+D(5D):S5A=S5N+0(5D) 

200 ITFPEEK (SN) < +320RFEEK (SA) =FSTHENZ26 

210 PORESP,32:5(9)=SN:POKESN,SS 

220 NEXT 

230 SR=O:BR=LT+lLlL+1:C=R+PT-2 

240 FORA=BTOC: IFPEEK (A) =SSTHENSR=SR+1 

250 NEXT: B=B+LL: [FRC LBTHENZ40 

260 IF(TS TEI AND(SR<¢ST) THENIS 

270 TFSR¢STTHENSOO 

280 CLO:PRINTD#$(DC) 3" rounded up "s5T;" sheep 
in time ";T 

290 GOTO35S0 

300 PRINTDS(DC);" is disqualified." 

SiG PRINT"With his timing he'd be no good as a 
"SPRINT" watchdog. " 

350 [TFT BTTHENBT=T:BD=DC 

370 WATT(200): TFDC=DNTHEN4006 


— 
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380 FRINTIFRINT:PRINT"The next dog should now 

proceed to":PRINT"the field. ":GOTO1040 

400 ITFBT<TETHEN430 

410 CLS:PRINT"These ";DN;" dogs were of such": 

PRINT"poor quality that no rosettes" 

420 PRINT"can be awarded. ":END 

430 PRINT"The winner was ";D#(BD)3;" in time "; 

BT 

440 END 

900 TL=£BBD2: TRe£BBFS: BL=£RECA: BR=LBEED: LL=40 

905 LT=TL+374: RTHLT+HS 

910 DS=91sFS=92:P5=9735:55=94 

915 FORZ=91 T0995: GOSUB2Z0G00: NEXT 

920 DC=0;DV=2: TE=200:; BT=TE: DR=2Z: BD=0: D8 (BD) =" 

P50 DiOde-Lir Gi Lis-LbLti:di 2s =i: 00S) SLi +1 

940 OfC4 SLL Bi Sietb-i:b(ere-isbi7i=-LbL-i 

950 DT=TR-TL:DL=BL-TL:LBaLT+3#LbL:sPT=RT-LTsPLeb 

B-LT 

960 CLS:PRINT"Do you want instructions (¥/N)"; 

565 INPUTA#: TFAS="¥" THENGOSUBS090: GOTO1040 

980 BOSUBSO50 

1040 T=0:;DC=DC+i:PRINT"What is this dog's name 
"se INPUTD# (BC) 

i045 CLS: INKG:PAPERZ 

1050 FORA=TLTOTR: PGREA,FS:POKEA+DL,FS:NEXTA 

1060 FORA=TLTOBLSTEPLL: POKEA,FS:POKEA+DT,FS:NE 

XTA 

1060 FORA=LTTORT:POKEA,PS:POKEA+PL,PS:NEXTA 

1090 FORA=LTTGLBSTEPLL: POKEA, FS: FOREAtFT FS: NE 

xTA 

1095 FPLOTO,23,1i:PLOT1,23,"BEST DOG: ":PLOT11,23 
,OF(BD) 

1696 PLOT23,23, "BEST TIME: ":B$SSTR#EC RTI: PLOTS4 
.2a,B$ 

1097 TsO;PLOT16,25," TIME: " 

1100 A=LT+INT (FT 2): PGREA, 32 

1105 TCSLT+iLLet:BC=LB-LLti: DLEGL ALL 

{110 FORS=iTGS5T 

1115 C=OrSX=INTCRND (CL) #¢(DT-3) 0s SV=INTCRND C1) & 

DL-3)) 

1iZ0 SF=BL+SX-(SV#lLi+2e (Lb -1)): TFPEER (SP) < 332T 

HENLLiS 

1130 TFSP=TC+CORSP=BC+CTHENIIIS 


59 


20 Games for the ORIC-1 


fi4g CaC+i: TFCLPT-iTHENii so 

1150 POKESP,55:9(5)=5P:NEXTS 

i160 DX=INTCRND (1) #DT+1):DY=INTCRND(L) *#DL+i1):D 

F=BL+DX-DY# LL 

1145 IF COPSLTIAND(DP<LB) THENT 1460 

1170 [FREER (DP) <-32THENL146 

1180 POREDP,DS:DL=DL#¥LL:GOTOIS 

200G XX=460804+7#8: FORG=XXTOXX+7: READU: POKEQ,U: 

NEXT:RETURN 

2010 DATAQO,9,16,49,17,31,17,17,18,18,635,18,18, 

63,18,18,0,9,63,18,12,12,18,63 

2020 “ATAG,12,18,33,18,12,18,0,0,0,2,3,34,62,3 

4,34 

5000 CLS:PRINT"In Sheepdog Trial your dog must 

"SPRINT"round up sheep within the time" 

S010 PRINT" limit. When your dog gets":PRINT"cl 

ose”to the sheep they will" 

5020 PRINT"move away and can be herded into":P 

RINT*the pen." 

5030 PRINT: PRINT"Controls: use the keys around 
the S:” 

S040 PRINTSFC(16)3"G W E"sPRINTSFC(17)3;"A 5S D" 
rPRINTSPCCLBig "2 X C" 

sgsd PRINT: PRINT"How many dogs are taking part 
(1-9) "s:INPUTON 

S055 IFDN¢LORDNS9THENS O50 

5060 PRINT"Total number of sheep to be rounded 
“SPRINT"up, trom 1 to 9"3:s ITNPUTST 

5065 [TFST< LORST?9THENSO6O 

s070 TE=TE+5T#40: RETURN 
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In this game you control a tank which moves continuously 
around a rectangular playing area. Every time the tank hits one of 
the numbers dotted about the screen, that value is added to your 
score. 

Sometimes in a game it is useful to have a shape whose 
direction of movement is clear from the way the shape looks. 
Common characters like this include arrows, spaceships, and, of 
course, tanks. 

It is difficult to create 8 distinctive tank shapes on the Oric 
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because a 6 by 8 matrix is used, so in this game a tank is 
constructed from two individual symbols. 

Each tank consists of a tank body, which is a ‘block’, and a tank 
gun. The gun symbols are stored in an array G( ). They just 
consist of single lines, with each line corresponding to an array 
value D( ). So if the tank is to move up the screen, its movement 
is given by D(0) and the tank gun G(0) is a vertical line which will 
be poked above the tank body. Similarly, D(3) indicates 
movement east, so G(3) is a horizontal line which will be poked 
east of the tank body. This is why the array values for G(_) in lines 
910 and 915 repeat — the same line is used in two different 
positions to indicate a gun, the only difference being that it is 
poked onto a different side of the tank body in each case. 

It is now easy to rotate the tank. To rotate clockwise the old gun 
is erased, 1 is added to the array values D( ) and G( ), and the 
new gun symbol G( ) is poked onto the tank body in the correct 
position by using D( ). Rotating anticlockwise is a similar 
process, except 1 is subtracted from the array values. In both cases 
checks must be made to ensure that the array value has not gone 
out of bounds. 

Only three keys are needed to control the tank: one to move it, 
and the other two to rotate it clockwise or anticlockwise 
respectively. The resulting routines can be used in a variety of 
games, from tank battles to racing games where it is important to 
know which way you're going! 

In the game that follows the tank moves automatically because 
this was found to be much faster than putting its movement 
under keyboard control. The player therefore can only control 
rotation of the tank, although it can be stopped by running it into 
a wall! 


Program notes 
10 Keyboard click and cursor off. 


20-40 Number poke routine. 20 selects a random position on 
screen where the number will be poked, 30 checks the position is 
empty, and 40 pokes the number there. 


50-80 Keyboard controls to check for tank rotation. 80 checks to 
see if there has been no direction change in which case the next 
section is omitted. 
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90-130 Tank rotate routine. 90 and 100 ensure that the array value 
has not gone out of bounds, 110 calculates the new gun position 
and checks that it is not a wall. 120 adds the number to the score if 
the new position contains a number. 130 erases the old gun and 
then draws a new one. 


150-180 Tank move routine. 150 calculates the position two steps 
away from the tank body in the direction of movement, and 
checks that the position is not a wall. 160 adds the number to the 
score if the new gun position contains a number. 170 erases the 
old tank body and draws tank at its new position. 180 calls the 
subroutine which pokes numbers on screen if a number has just 
been erased by movement or rotation. 


240-265 Score and time routine. 


270-360 270 averages out your score to see if you qualify for a 
replay. Otherwise various comments are made on your success 
(or lack of it). 


900-955 Initialisation routine. 


965-1120 Game set-up routine. 1100 and 1105 draw walls around 
the screen edges, 1110 pokes all the numbers from 0 to 9 into 
random screen positions, and 1120 pokes the tank body plus gun 
into its start position at top left. 


200-2020 User defined character creation routine. 


5000 onwards — instructions. 


Important variables 
D Gives present direction of tank movement — used to select 
appropriate value from array D( ). 
DL Distance along left of screen. 
DT Distance along top of screen. 
N Character code for number to be poked onto screen. 
ND _ New direction of tank movement. 
NG _ New gun position after rotation or movement. 
PN _ Position of number on screen. 
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PP Present position of gun. 

R Replay number — indicates how many replays have been 
made. 

RN _ Replay number — the number of replays allowed before 
the game ends. 

RS Replay score — this must be averaged on each game to get 
a replay. 

S Score. 
Time. 

TE Time end — ifa replay score has not been achieved by this 
time the game ends. 

Symbols used 

NS Nine symbol — character code for number nine. 

OS  Nought symbol — character code for number zero. 

TS Tank body symbol. 

WS _ Wall symbol. 


G(0) to G(7) Gun symbols. Each symbol is a single line, either 


10 
20 
30 
40 
a0 
60 
80 
90 
100 
110 
120 
130 
150 
1460 
170 
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PRINTCHR$ (6) CHRE(17) 2 60TO900 
NX=INTCRND(L) #TD+1L) ¢NY=INTCRNDCL) #SD+1) 
PN=SP+NX-NY#*#LL: TFPEEK (PN) < 32 THENZO 
FOKEPN,N: RETURN 
N=O:ND=D:AS=KEV#: IFAS=CHR$ (9) THENND=D+1 
IFAS=CHRE (8) THENND=0-1 

TFND=DTHENISO 

TFND?7THENND=0 

IFND<OTHENND=7 

NG=PF+D (ND) :PG=PEEK (NG): IFPG=WSTHENISO 
IFPG¢ SS2THENS=S+PFG-05:N=P6 
POKEPP+D(D) , 32: D=ND:POKEPP+D iD) ,6(D) 
NP=PP+2#D(D):PG=PEERK (NF): TFPG=WSTHENIBO 
IFFG< S32THENS=S+PG-09: N=PG 

POKEPP, 32:PP=PF+D(D):FOKEPFF,1TS:PORENF,G(D) 


Adder 


180 ITFN« >0THENGOSUB20 

240 PLOTSC-7,24,"SCORE: ":PLOTSC,24,5TR#(5):T=T 
+i:PLOTTI-6,24,"TIME:" 

245 PLOTTI,24,STR#(T) 

2465 IFT¢TETHENSO 

270 R=R+is TFS/R>=RSANDRERNTHENT=0: GOTOS0 

280 CLS: ONRGOTG2Z90,330, 330,346 

290 TFS2RS/4THENSOO 

295 PRINT"Back to your knitting granny! ":G0TOS 
50 

S00 TFS2RS5/2THENSIG 

303 PRINT" You're no tank driver - a hearse 
RINT"suits you! ":GOTO350 

$10 IFS*RS-1OTHENS20 

$15 PRINT"Keep trying - that’s not too bad! ":6 
OTG350 

$20 PRINT" Tough luck - you almost got a replay 
'":60T0350 

330 PRINT"Well done - that’s a great score! ":6 
gTOa50 

340 PRINT"Fantastic! Perhaps it’s even a recor 
qi" 

$50 PRINT" Your score was "35 

360 END 

900 TLefBbD2: TR=£BRFO: BL=£RECA: BR=LBEEC: LL=40 
905 SCH1L3:TI=25 

910 NS=37:05=48: TS=F1:WS=92:6(0)=98:6(1)=94: 66 
2)=95:6(3)=96 

915 G(4)=93:6(5)=94:6(46)=95:6(7)=96 

$20 Z2=TS:G0SURZ000: Z=W5: GOSUB2Z000: FORZ=93TO94: 
BOSUBZ00G; NEXTZ 

925 Da2:T=0:5=0:R=0: TE=400: RS=1 703 RN=a4 

930 D(OP=-LLID(LdS-LLtl D2) a1: DCS) =LLel 

$40 D4) SLL DCS) SLL-isb(6)s-1:D(7)5-Li-| 

950 BR=BR-LL: BL=BL-LL:OT=TR-TLiDL=BL-TL: TO=DT- 
12505 (DL-LLO/LL 

955 PR=TL+lLL+i:SP=BL-LL-1 

960 CLO:FRINT"Do you want instructions (¢¥eNo"s 
565 INPFUTAS: TFAS="¥"THENGOSUBSO00: GOTOLGdO 

960 BOSUBSGSO 

{OGG CLS:INkO: PAPERS 

1i00 FORA=TLTOTR:FGKEA WS: FOKEA+DL WS: NEXT 
1105 FORA=TLTIOBLSTEPLL: POREA, WS: FGREA+D7 ,WS:NE 
XT 


ny 


P 
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1110 FORN=OGS+1 TONS: GOSUB20:NERTNSPLAYO,1,3,80 
il2G FUREPR TS: rGherr ro (G: 600): G0Too0 

2000 Kk=4G080+Z #6: FORG=kxTORA+ 7: REABU: POREO,L: 

NEXT:RETURA 

2010 DATA63,63,63,63,465,63,65,63,463,45,38,35,3 

2,33,43,63,68,68,5,8,8,8,8,6 

2020 GATAQ,9,1,2,4,8,16,52,0,0,0,65,0,0,9,9,32 
116,8,4.2,1,0,4 

Sa00 CLS:PRINT’ In this game you must try to ad 

d to" 

5005 FRINT“ your score by hitting numbers on“:F 
RINT"screen by running into them with® 

5010 FRIAT"your tank or hitting the numbers’sF 
RINi*as you swing the tank's gun." 

SG1i5 PRINT’ {# you qet an average score of "“yR5 
:PRINT®in time ";TE;* you will be" 

5020 FRINT"given a replay and timing will ":iPRI 
NT"begin again from zero. A continued” 

5025 PRINT’ average af “RS; " gives up tov:PRIN 
TRAM?" replays." 

S050 PRINTSPRINT"Controls are: left cursor key 
to":PRINT"rotate tank anticlockwise, and” 

Sh6d FRINT*’right cursor key to rotate it":FRIN 
T'clockwise. Frese any key to" 

S070 PRINT’ begin. ":REPEATS AS=KEVSs UNTILASS 3" ": 

RETURN 
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In Minefield you have to find your way across a minefield riddled 
with potholes. You have a little help from your mine-detector, 
but its batteries are limited, so you must be decisive. . . 

The mines on the field are randomly placed at the start, and 
their positions saved in the array M( ). Whenever a move is 
made, all nearby mine positions are examined, line 130, and 
checked to see if they correspond to positions directly surround- 
ing the little man the player controls. The number of mines 
around the present spot is then displayed on-screen, although 
the player will have no idea in which direction the mines lie. 
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By comparing the number of mines surrounding one position 
to another adjacent spot, it is sometimes possible to deduce the 
mine locations. When this proves difficult, backtracking to a less 
dangerous path may be wisest, or you can always take the risk! 

A trail of markers is left to show the safe path. Sufficiently 
skilled or reckless players may prefer to do without them, by 
changing the start of line 190 to POKEMP,32. 


Program notes 


10 Keyboard clock and cursor off. 


20-100 Keyboard controls to move man in 8 compass directions. 
This loop repeats until a direction of movement is chosen. 


110-190 Player move routine. 110 finds the new position, and 
checks if it is a pothole. Lines 130-180 check all the mine positions 
to see if any are adjacent to the present position, 140 counting all 
the mines around the new position. 170 checks in case the man 
has just trod on a mine, 190 pokes a safety marker to the previous 
position and draws the man at his new position. 


200-240 200 checks if the top left has been reached, in which case 
the minefield has been crossed safely. 210 counts the number of 
times the detector has been used: it stops working after a certain 
period. 220 and 230 display the number of mines surrounding the 
present position. 


260-310 Game end routine. It is always interesting to see how 
close to success you were, so after the explosion lines 260-280 
reveal the locations of all the mines. 285 puts a marker at the last 
position, while 290 and 300 comment on the manner in which 
death came to pass. 


900-955 Initialisation routine. 


960-1210 Game set-up routine. 1100 and 1105 draw the edge of the 
minefield, while 1120-1140 randomly distribute potholes and 
mines about the playing area. 1170 clears away mines from the 
start and finish positions, otherwise it may be impossible to cross 
the minefield at all. 1190-1210 poke an exit at the top left of the 
minefield and place the man at his start position. 


2000-2015 User defined character creation routine. 
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3000-3010 Routine when man falls down pothole. 


5000 onwards — instructions plus setting of skill level. 


Important variables 


DC 


Detector count — how many times it has been used. 


DE Detector end — detector gives out when DC reaches this 
value. 

EP _ End position on minefield — just in from BR. Last position 
at which mines can be placed. 

MA _ Mines about present position — their number. 

MD_ My direction — used to select movement from array D( ). 

MM _ Maximum number of mines that can be placed on the field. 

MP My position. 

NM_ Number of mines — count used as mines are placed at 
game-start. 

NP New position after movement. 

SP Start position on minefield — just in from TL. First 
position mines can be placed. 

PF Pothole flag. Set to 1 if a fall takes place. 

PM Probability of mine — used as mines are placed at game- 
start. 

Symbols used 

ES Explosion symbol. 

HS Human symbol. 

MS_ Mine symbol. 

PS Pothole symbol. 

SS Safety marker symbol. 


10 PRINTCHR# (6) CHR#(17):60T0900 
20 REPEAT: MD=8:GETA#: IFAS="W"THENMD=0 
30 TFA#="E"THENND=1 
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40 [FAS="B"THENMD=2 

s0 ITFA#="C"THENND=3 

60 IFAS="X"THENMD=4 

7G TFA$S"Z2"THENNDES 

80 TFAS="A"THENMD=6 

90 TFAS="Q" THENMD=7 

todo UNTILMD<S8 

110 NR=MP+OCMD): TFPEER (NP) =POTHENPFEi: 60TO260 

130 MA=O:FORA=1TONMI CHM (G3: TFCENP+DR C7 ORC SNF +O 

(3) THENI SG 

140 FORDSGTO?: TFC=NP +O (D) THENMAENA+I 

159 NEXTD 

170 [FC=NFTHENZ60 

180 NEXTA 

190 POKEMP,S5:NP=NP:POREMF,HS 

200 ITFMP=TL+LL+iTHENPLOT1O,24, " you escape! 
":60TG260 

210 OCSDC+is TFOCeDETHENMNC=SC-1:58=" DETECTOR F 

AILS ":GOTG226 

220 S€=STRE CMA) 

250 PLOTMC,24,5¢ 

240 GOTO26 

260 FORA=LTONM: TPM (Ai =-1ORM (A) =NPTHEN2Z8O 

270 POREN(A) WS 

280 NEXTA 

285 POREMP,55 

290 IFPF=1THENGOSUBSO0G: END 

400 PLOT6,24,"You stepped on a mine. ":PORENF,E 

SrEXFLODE 

Sid END 

900 DIMM (20): TL=feCAds TRELBCBG: RL=EREB4: GREERE 

FOrLL=4u 

910 MS=42;HS=Fis PSF: 5529565554 

GLG 2=HS!GOSUBZ000: 2=P 5: GOSUR2O00; 7258: G0SUbR su 

GO: 25E5:G0SURZ000 

920 DC=O:MA=O:NM=O:PF=O:MM=1O:PP=.07:F*=, 2 

930 DIGPS-LLIBCiPs-LbLeii Di 2) al: 0¢S) SL 0+ 

740 DCF SlLbeDtSiaLb-i:0(6)s-1:007)=-LL-1 

950 DTSTR-ToUrGLSBL-TL:iSPSTL+LL+i:EPsiR-Lb-1:50C 

210 

955 MC=5C+1i5:R=SFsMP=EF 

960 CLO:FRINT’Do you want instructions (Y/N: "; 

965 INPUTAS: TFAS="¥" THENGOSUBSO0G: GOTOLGGG 

960 GOSUBSOSO 
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1000 CLS: INKZ:FAPERO 

i100 FORA=TLTOTR: POKEA,PS:POREA+DL PS: NEXT 
1105 FORA=TLTOBLSTEPLL:POKEA,PS:FOREA+DT ,FS:NE 
xT 

1120 FORA=BTOB+DT-2:R=RND(1):2S=32: IFREPPTHENS= 
F5:G0T01140 

1125 IFNM=NMTHENI 140 

Li30 TFREPMTHENNM=NM+1:M (NM) =A 

tidd POKEA,S: NEXT: B=B+L lb: IF Be sEPTHENI 126 

1170 FORA=1TONM: CHM (A): FORZ=0TO7: 1 FC=MP+D (2) 0R 
C=SP+D(2) THENN (A) =-1 

1180 NEXT:NEXT 

1190 PLOTSC,24, "NINES PRESENT" 

1200 FORETL,32:FPORESP,32:POKEMF ,HS 

i216 GOTO220 

Z000 XX=46080+Z2#8:FORG=XXTOXA+7: READULPOKEG,O: 
NEXT: RETURN 

2010 DATAI4,14,4,31,4,4,10,17,12,18,83,35,18,1 
250,0,0,48,40,36,40,46,32,32 

2015 DATAZ, 32,9,37,.8,3,33 

2016 DATA? 

3000 PLOTS,24,"You fell into a pothole” 

S010 FORG=1TO100;SOQUND1,G@,4: NEXT: PLAYG,O,0,0:R 
ETURN 

5000 CLS:FPRINT"You are trapped in a minefield" 
:PRINT"fuli of potholes. Try ta" 

5005 PRINT"escape through the exit at the":FRI 
NT"top left. Your mine detector tells” 

5610 PRINT"you how many mines are directly” 
S015 PRINT"around you. But its batteries":FRIN 
T'can run out - so be quick! When you" 

S0Z0 PRINT"move, safety markers are left":FRIN 
T"behind. " 

5030 PRINT:PRINT"Controls - to move, press the 
"SPRINT*keys surrounding the & key:" 

5040 PRINT:PRINTSPC(16)3"G W E'SPRINTSPCCL7);" 
AS D":FRINTSPOCL8);"Z & C" 

S045 PRINT"To move north, for example, press*: 
FRINT"W." 

5050 PRINT:PRINT® Input your skill level, 1 ta 
10,":PRINT"1 gives few mines, 10, many": 
$460 INPUTSL 

SO7G TFSLALORSLPLOTHENSOSu 

5080 MM=MN+SL:0E=D0T+(DL/LLI+5L: RETURN 
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You are fighting to save earth from the alien hordes that fall from 
the skies. The monstrous invaders cannot survive the touch of 
earthly skin, and shatter into a thousand fragments if you touch 
them. But any aliens that fall to the ground encyst themselves ina 
toughened shell, and once that pile of shells reaches over your 
head, you will DIE! 

This is a relatively brief program, but the game is great fun to 
play. The aliens are poked randomly to the screen using sub- 
routine 10, and the number of aliens that fall at any one time can 
be varied just by changing the value of BN, line 5070. For a really 
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tough game, try playing with 3 aliens dropping down at once 
— you have to be very quick to get them all! 


Program notes 
5 Keyboard click and cursor off. 


10-20 Alien placement routine. 10 picks a random position along 
the top of the screen, 20 saves that position in the array B(_ ) so the 
alien can be moved later. 


30-80 Alien drop routine. 30 finds the alien’s current position and 
checks that the alien is still there: it might have been destroyed in 
the previous move. 40 finds the alien’s new position and erases it 
from its old position, while 60 turns it into a shell body symbol if 
it is about to strike the ground or another alien corpse. 70 checks 
if the alien has hit the man, and 75 moves it into its new position 
if that position is empty. 80 completes the loop which moves all 
the aliens. 


90-120 Keyboard control routine. 90-100 check if the man is being 
moved left, right, or kept stationary. 110 finds the man’s new 
position, and 120 draws him at that position. 


125-140 Game end routine. The score is based purely on the 
length of time for which the man survives. 


900-920 Initialisation routine. 


960-1100 Game set-up routine. 1050 ensures that the foreground 
colour at the lower part of the screen is red, so all the alien cysts 
are suitably gruesome. 


2000-2020 User defined character creation routine. 


5000 onwards — instructions and setting of skill level. 
Important variables 


BP Body position for alien — where it is in screen memory. 
ML Man left — furthest left man may move on-screen. 
MP Man position. 
MR Man right — furthest right man may move on-screen. 
NB New body position for alien. 
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NP New position for man. 


PB Value found at new position of alien body. 


Symbols used 


BS Body symbol for alien. 
ES Explosion symbol when alien strikes man. 
MS  Mansymbol. 


WS ___ Worse body symbol — used when alien becomes a cysted 
corpse. 


5 PRINTCHR$ (4) CHR#(17):G0TO900 

10 FPSTL+INTCRND(L) #(TR-TLi +1): TF PEER (FP) =BSTHEN 
10 

20 BCAISF:RETURN 

30 FORA=1TOBN: BP=B( A): IFPEEK (BP) <> RSTHENGOSUBI 
O:BR=B(A) 

40 NB=BP+LL:PR=FEEK (NB) s POKEBP, 32: TFPB=WSANDRP 
<MRTHENF=1 

60 IFNE}BRORPB=WSTHENFPORKERP WS: FR=W5 

70 TFPB=MSTHENFING 

73 IFPR=32THENB (A) =NB: PORENB,BS 

8G NEXT: RETURN 

90 REPEAT: AS=KEYS: IFAS=CHR#(8) THENN=-1 

93 IFA#="  "THENN=O 

100 ITFA#=CHR#(9) THENN=1 

110 NP=MP+N:POREMP, 32: IFNP<MLORNP > MRTHENNP =P 
120 MP=NF:POKEMP MS: GOSUBS30:T=T+isFLOT17,24,5T 
R#(T):UNTILF=1 

125 DORX=1TOS: PING: NEXT 

130 CLS:PRINT"You lasted for time “:T:PRINT"Th 
is was at skill level "sSL 

140 END 

900 TLS£BRD7: TR=£RBFO: BL=£BRED1: BR=£BEFI:LL=40 
710 MB=93:B5=94:W5=95:ES=96 

915 Z=MS:GOSUB2000: 2=85:G0SUB2000; Z=WS: GOSUB20 
G0: Z25ES:G0SUB2006 

920 T=O:FsO:ML=TL+1lo6#L bi MR=TR+16*#LLiMP=ML+16 
960 CLO:PRINT"Do you want instructions (Y/N) "; 
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965 INPUTA$: IFAS="Y¥"THENGOSUBSO00: G0TO1000 

980 GOSUBRSOS6 

100G CLS: INK4: PAPERS: PLOTI1,24, "TINE: " 

1050 FORZ=ML+39TOBRLSTEPLL: POKEZ, 1: NEXT 

1100 GOSUB1IO:FOKEMP ,MS:GOTO96 

2000 XX=46080+2#8: FORG=XXTOXX+7:READU: FPOREG,U: 
NEXT: RETURN 

2010 DATAI4,14,4,31,4,4,10,17,0,51,18,18,63,45 
764,63 

2020 DATA63,33,35,33,33,53,55,65,8,2,52,1,16,4 
50,0 

S000 CLO:PRINT"You must try to stop the aliens 
"SPRINT"¢trom falling to the bottom" 

S005 PRINT"of the screen by popping them by":F 
RINT"piacing your man underneath" 

SGLQ PRINT"them. If you don't stop the aliens” 
tPRINT"their corpses will form a pile" 

SO15 PRINT"which will build up until it":FRINT 
“reaches you and buries you, then" 

5020 PRINT"the game ends. ":FRINT:FRINT"Use the 
cursor keys to move the man" 

S030 PRINT"Lett and right." 

S040 PRINT: FRINT"Use the space bar to stop." 
S050 PRINT:PRINT"Input your skill level, from 
1 to S,":PRINT"L, easy, to 5, difficult": 

S060 INPUTSL:IFSLE LORS” 2STHENS OSG 

S070 BNSSL:RETURN 


75 





Here, you must try and collect as much gold as possible while 
avoiding the poison arrows which fall from the ceiling above. As 
if this wasn’t enough, you must be very quick before the 
descending ceiling crushes you to death! 

To make this game a little easier, protective bases are placed 
across the screen so that the man can seek shelter from the shoals 
of falling arrows. The horizontal and vertical dimensions of the 
walls and their number are determined in line 925. More 
confident players can eliminate the protective walls completely 
by adding 1101 GOTO1150. 
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Program notes 


10 Keyboard click and cursor off. 


15-25 Arrow explosion routine. When an arrow hits the man or 
the floor, 15, it explodes, 20, and a new arrow is created to replace 
it, 25. 


30-60 Move arrow routine. 40 checks if the arrow has hit anything 
or reached floor level, 50 pokes the arrow to its new position. 


70-80 Keyboard control routine. 


90-140 Player move routine. 90 checks that the present position is 
occupied: if it is empty the man has been destroyed by an arrow 
and the game is over. 100 ensures the man does not move off- 
screen left or right. When the side of the screen is reached, a gold 
bar is removed from the pile, and the gold bar flag GB is set to 1, 
110. When the bar is deposited on the left side of the screen, GB is 
rest to and a gold bar is added to the pile on that side, 120. 130 
checks if all the bars have been collected, if not 135 exmines the 
new position of the man to check if there is an arrow there. 140 
moves the man to the new position. 


150-160 If the maximum number of arrows is not yet falling, 150 
may add a new arrow, while 160 loops back to begin the whole 
sequence again. 


170-240 Game end routine. Various messages are given 
depending on the success or failure of your robbery. 


900-960 Initialisation routine. 


961-1190 Game set-up routine. 1100 draws the floor, 1105-1140 
place the protective walls above the floor: these are gradually 
destroyed as arrows hit them during the game. 1150 pokes the 
pile of gold bars to the right of the screen. 1190 calls the routine 
that lowers the ceiling, and the game begins. 


1200-1220 Lower ceiling routine. This is called every time a gold 
bar is removed from the pile. 


2000-2020 User defined character creation routine. 


5000 onwards — instructions and setting of skill level. 
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Important variables 


AN 


DW Distance between protective walls. 

GB __ Gold bar flag — set to 1 when gold bar is taken. 
GC _ Gold bar count. 

GN Number of bars collected by player. 

GP Gold bar position on right. 

GV _ Value of bar in pounds. 

G1 ___ Top left gold bar position. 

HW Horizontal dimension of protective walls. 
MA Maximum number of arrows to be dropped at one time. 
ML Man’s leftmost allowable position. 

MM_ Man’s movement. 

MP Man’s position. 

MR Man’s rightmost allowable position. 

NA Number of arrows presently dropping. 
NG _ Number of gold bars altogether. 

NP New position for man. 

NW_ Number of protective walls. 

PA Position of arrow. 

SL Skill level. 

VW _sVertical dimension of protective walls. 
WP Wall position. 

WU __ How far walls are up from floor. 
Symbols used 

AS Arrow symbol. 

ES Explosion symbol. 
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FS 

GS 
MS 
WS 


Grave Robber 


Floor symbol. 
Gold bar symbol. 
Man symbol. 
Wall symbol. 


10 PRINTCHR$ (6) CHR$(17):GOTO900 
15 S$=32: [FAP=FSTHENS=FS 

20 POKEAN,ES:WAIT(5):POKEAN,S 

25 P(A)=TL+INT(RND (1) #RA+2) : RETURN 

30 FORA=1TONA:PA=P (A): AN=PA+LL: AP=FEEK (AN) : FOK 
EPA, 32 


40 
50 
60 
70 
73 
BO 
85 


IFAP< s320RAN>BLTHENPING: GOSUB15: GOTO60 
POKEAN,AS: P(A} =AN 

NEXT 

AS=KEY$: IFAS=CHR$ (9) THENMM=1 

IFA$="" "THENMM=0 

IFAS=CHR$ (8) THENMNM=-1 

T=T+isT$=STRE(T) +" "SPLOT22,24,7#: 1FTHTET 


HENT=0: GOSUB1200 

90 PM=PEEK (MP): TFPM=32THENI70 

100 NP=MP+MMs [FNP<MLORNP ?MRORNP=MPTHENISO 

110 IFNP=MRANDGR=OTHENGBR=i:FOREGF,32:GF=GP+LL: 
GOSUBR1200 

120 IFNP=MLANDGB=1THENGB=0:FOKEG1,GS:G1=61-LL: 
GN=GNt+i 

130 IFGN=NGTHENZO0 

135 IFPEEK (NP) =ASGRTReMPTHENEXPLODE: WAIT (S00) s 
GOTOI70 

140 POKEMP,32:MF=NP:POKEMP,MS 

150 IFRND(1)<SLANDNA< MATHENNA=NA+1:F (NAJ=TL+IN 
TCRND (1) #RA+2) 

160 GOTO30 

170 CLS:PRINT:PRINT"You perished from the pois 
on at the":FRINT"tip of the arrow, but your" 
180 PRINT"grateful relatives "; 

190 IFGN>OTHENPRINT"got ";GN#GV;" thousand pou 
nds for the gold. ":G0T0240 

195 IFGN=OTHENFRINT"Sold your clothes tor a ¢ 
ew pounds. ":G0T0240 

200 CLS:PRINT:PRINT"You return home having col 
lected" 
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205 PRINTGN*#GV;" thousand pounds worth of gold 


240 END 

900 TL=£BBD2: TRE£BBFS: BL=£BECA: BR=£BEED: LL =49 

910 AS=91:ES=92:FS=93:65=94:M5=95:W5=96 

915 FORZ=917T096:GOSUB2000: NEXT 

920 NG=6:GN=0:NA=4:MA=NA:GC=0:GR=0:WUS3:T=0:TE 
=50 

925 HW=S:VWE2: NW= 

950 DT=TR- TL:RA=DT- -2:DW=INT((DT-NW#HW) / (NWH1)) 
955 WR=BL+DW-WU4 LL 

960 ML=BL-LL:G1=ML-LL:MP=ML:MR=BR-LL:GP=BR 

G41 CLS!SPRINT"Do you want instructions (Y/N) "3 
965 INPUTAS: IFAS="Y¥"THENGOSUBSC00; GOTOIG00 

980 GOSUBRSOSG 

1000 CLS: INKi:PAFER?7 

1100 POKEBL-1,0:FORA=BLTGBR:POKEA,FS:NEXT: PORE 
MP MS 

{105 FORA={LTONW: FORH=OTOHW-i:FORV=CTOVW-1 

{110 P=WR+H-VeLLiPOREP WSs NEXTV:NEXTH 

1140 WP=WP+HW+DWs NEXT 

1150 GC=GC+i: 1FGC4=NGTHENGP=GF-LL:FORKEGF,G5:60 
TOL150 

11460 PLOTIS,24,"TIME:" 

1196 GOSUBIZ00:G0TOS0 

1200 FORA=TL-LLTOTR-LL:PORKEA, 32: NEXT 

1205 TLeTL+bLb:i TRETRFLL 

1210 FORA=TL-LLTOTR-LL:POKEA,FS:NEXT 

1220 RETURN 

2000 XX=4G080+7 #8: FORG=XXTORA+ 7: READUS POREO,L: 

NEXT:RETURN 

Z010 DATAB,6,6,8,6, pees 6,4,2,32,1,16,4,9,0,6 
3,63,65,63,63,63 3, ¢ 
2020 DATA63,33,33,33,35,34,45,65,14,14,4,31,4, 
4,10,17,21,42,21,42,21,42,21,42 

S000 CLO:PRINT"’As a grave robber you risk deat 
m":PRINT*to snatch gold bars from" 

5005 PRINT"ancient tombs. There are many traps 
"?FRINT*in the tombs, and only the " 

S010 PRINT" most skilled robbers can evade the" 
rFRINT"poison arrows which tali ¢rom" 

5020 PRINT above. The gold bars are soa heavy": 
FRINT"that you can only carry one at® 

5030 FRINT*a time. You must drap the bar near” 
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rPRINT*the exit, which 15 on the left,* 

5035 FRINT"beftore returning to the right tor": 

FRINT"more bars," 

5040 PRINT“Watch out tor the cescending ceilin 

qu 

S045 PRINT:FRINT Controls - use the cursor key 

to":FPRINT“move right or Left." 

5050 PRINiSPRIGI "How skilled a robber are you, 
1, "sPRINT"hopeless, to 5S, master crook"; 

S06 INFUTSLiITFSLAiORSLSSTHENSOSO 

SO70 TE=TE-S#5L:MA=MA+SL:GVSSL¥2:SL=SL 4%, 02: RET 

URN 


yyoan 
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You are a madman who has seized a poorly-guarded tank and 
gone on the rampage. With no thought for others you mow your 
victims down under the huge treads of your machine. How many 
more will perish before you are caught? 

Although Manhunt is a completely different program to Adder, 
it once again makes use of the tank as the player’s symbol. By 
careful program writing, part of the Adder program can be used 
as the basis for a new game. 

In Manhunt the aim of the game is to run down as many 
randomly moving victims as possible in a given time. The game 
is made more difficult by the fact that any man hit by the tank is 


82 


Manhunt 


buried on the screen beneath a cross, through which the tank 
cannot move. Manoeuvring thus becomes harder as the game 
progresses. The number of men is kept at a reasonable level by 
replacing the ‘dead’ men elsewhere on the screen. 

To save programming time, it is possible to load Adder, delete 
lines 300-360, and then type in just the following lines which 
differ in the listings: 40, 50, 110, 120, 150, 160, 180-220, 265-290, 
905-925, 1000, 1110, 2010 onwards. 

As the programs have a number of lines in common, the 
program notes describe only those lines which differ, and the 
reader is referred to Adder for a full description of any other 
sections. 


Program notes 


40 This pokes a man to a random position on-screen, saving that 
position in the array M( ). 


50 Keyboard control routine. 


110 Checks tank’s new position. The tank will not move if it hits a 
wall or a cross. 


120 The only other object the tank can hit must be a man, and this 
line pokes a cross to the man’s position. 


150 Gun rotate routine. If the swinging gun hits a man he is 
replaced by a cross. 


160 If the gun hits anything else, it can’t move. 


180-220 Man move routine. 180 checks if there is now a cross at 
the man’s position, in which case he must be dead, and should be 
placed elsewhere on-screen by calling sub-routine 20. 185 
ensures that the man moves less frequently for less skilled 
players, and 190 calculates a random movement for him. 200 
checks to see if the man has blundered into the tank or gun during 
his random cavortings, otherwise 210 erases him from the old 
position and draws him at the new one. 220 completes the loop to 
move the remaining men. 


265-290 Game end routine. Gives the score. 
1110 Places the men randomly on-screen at the start of the game. 
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‘2000-2030 User defined character routine. 


5000 onwards — instructions and setting of skill level. 


Important variables 


The only new variables introduced in Manhunt are: 
MN _ Number of men to move around. 


MT _ Total number of men to be killed in time limit TE. 


Symbols used 


The only symbols which differ from those in Adder are: 
CS — Cross symbol. 
N Man symbol. 


10 PRINTCHR# (6) CHRE#(17):G0TO900 

20 NX=INTCRND CL) #TO+h) eNY=INTCRND (1) ¥5D41) 

3O PNSSP+NX-NY#LL: TFPEEK (PN) < 232THEN20 

40 M(A)=PN:POREPN,N: RETURN 

SO ND=D:AS=KEY#: TFAS=CHRS (9) THENND=D+i 

60 ITFAS=CHRE(8) THENND=D-1 

80 TFND=DTHENISO 

90 TFND?7THENND=0 

100 TFNDAOTHENND=7 

110 NG=FR+D (NDI: PG=FEER (NG) s TFPG=WSORFGECS THEN 
15a 

20 [FPGS 2S2THENPORENG ,CS:G07TG150 

130 POREPP+D(D) 22: 0=N0:POREPP+D(D) Gia) 

150 NP=PP+2eD(D): IFPEEK (NP) =NTHENPOKENE, CS: 60T 
G1B86 

160 TFPEEK (NP) < 332 THENISO 

{70 POREPP,S2:PPSPR+0(D) SPOREPP, TS:PGRKENP GD; 
160 FORA=iTOMN: TFRPEER (CM (A) 7} =COTHENS=5+1: GOSUB2 
0 

165 FNSM(A): TFRND(1) *SLTHENZ20 

10 ME INT CRND (CL) #8) 2 NM=PAN+D OM) DPSPEER (NM) 

200 IFP=TSORP=6(D) THENFOGKEPN,CS:G07G220 

210 IFPS32THENFOREPN, 32:6 (A) =NAi PORENM AN 

220 NEXTA 


er 
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240 PLOTSC-7,24, "SCORE: ":PLOTSC,24,5TR#(5)3T=f 
+i:PLOTTI-6,24,"TIME:" 

245 FLOTTI,24,57R#(7) 

265 IFS¢MT ANDT< TETHENSO 

270 CLS:PRINT"The mad driver killed °35;" men® 
tFRINT"before his petrol ran out. This" 

260 PRINT"was at skill level "sSL#10:PRINT"A t 
otal score of "sTE-T+SL#5#i0 

290 PLAYO,0,0,0;END 

900 TLe€BRD2: TREfBBFS: BL=£RECA: BR=fREECILLA40 
G05 SCsL5:TL=25 

Fi CS=435:TS=971:WS=92:G 0) 931601) 9436 (2) 295 
Gis) =96:Ne36 

915 G4) =FS:G(5) 94:6 6) For 7 1596 

720 FORZ= 517096: GOSUBZOUG: NEXT: Z=N: GOSUBZ006 
925 D=2:T=0:S=0: TE=400:MN=S:NT=15 

930 DCOVHE-LLID(LIS-LL+i:B(2)eti Di Sp Stiri 

946 Di4) SLL: D(S)SLL-i1:0(6)=-1:017)=-LL-1 

550 BR=BR-LL: BL=BL-LL:DT=TR-TL: DL=8L-TL: PD=DT- 
1:S5D=(DL-LLI/LL 

955 PRSTL+LL+1:5P=BL-LL-i 

960 CLS:PRINT"Do you want instructions (Y/N) "; 
965 INFUTA#: [FA#="¥"THENGOSUBSO09: GOTOLO06 

980 GOSURSO50 

1G00 CLS:INKL: PAPERS 

1100 FORA=TLTOTR:POKEA, WS: POREAt+DL WS: NEXT 
1105 FORA=TLTOBLSTEFPLL: POKEA,WS:POKEA+DT ,WS:NE 
xT 

1110 FORA=1TOMN: GOSUB20: NEXTA 

1120 POKEPP,TS:POKEPP+D(D) GCDB) sFLAYG,1,3,80:6 
aTdso 

2000 Xk=46080+7*8: FORG=KXTOXX+7:READULFOKEC,U: 
NEXT:RETURN 


ZO010 DATAG3,63,63,63,63,63,63,63,63,33,33,33;3 
Bee Se Betas FE) 
2020 DATAO,0,1,2,4,9,16,32,0,0,0,63,0,0,0,0,32 


»16,0,4,2,1, a, 0 

2030 DATAI4,14,4,31,4,4,19,17 

S000 CLS:FRINT"In Man Hunt you are a lunatic w 
no":PRINT"has managed to Seize a tank.” 

SOO PRINT"Fortunately, it has no ammunition,” 
:PRiWT’but you can still cause havoc” 

SOiG PRINT"by running aver any passers-by":FRI 
NT"or hitting them with your gun." 
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SOLS FPRINT"Dead men will be buried beneath’:PR 
INT’crosses - you cannot drive over" 

S020 PRINT"these. Your petrol will run out":PR 
INT*in time “sTEs" although if you" 

S25 PRINT "Kili "s:MT3" men your treads will “:F 

RINT"probably be unable to move due to" 

S030 FRINT"the bones jamming them. “ 

sO50 PRINTSFRINT’Controls are: left cursor key 
to":FRINT"rotate tank anticlockwise, and" 

S060 FRINT'right cursor key to rotate it":PRIN 
T"clockwise. Flease input" 

S070 PRINT*your skill level, 1, easy, to 1a, 4 

ard"::TNFUTSL 

S080 IFSLELORSLILOTHENS GSO 

ag7G SL=S5L/10: RETURN 
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The shrewd gambler can clean up on this one: with a careful look 
at the form, it’s not too hard to select a likely looking winner for 
the next race. Then it is sit back and cheer your choice on as the 
horse sprints towards the finishing line! 

Every horse which takes part in the races has a movement 
number associated with it. This is generated by the computer 
equivalent of throwing two dice: two random numbers from 1 to 
6 are found and added together. This value is stored in the array 
HC), 

When a race is run, a second random number is generated in 
exactly the same way. If this matches the movement number in 
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the array H( ), the horse is moved forward. Obviously horses 
with certain movement numbers are at a severe disadvantage. A 
number like 12 is not going to come up very often! Their poor 
chances are reflected in the odds given at the beginning of each 
race. The odds are thus a good guide to the form of the horses, but 
a random element is always included so that the odds are not a 
direct reflection of a horse’s chances. An interesting idea to 
extend the program would be to run a number of races internally 
and produce these as a form guide. Some horses might be 
penalised according to ground conditions, and so on. There is 
plenty of scope here for experimentation. 


Program notes 


10 Keyboard click and cursor off 


15-90 Horse movement routine. 15 generates a random number, 
and 20 compares this to the horse movement number. If the two 
do not match, the horse does not move. Any horse moving has its 
new position checked in 30, to see if it has reached the finishing 
line. If so, the flag F is set to 1 to indicate a winner, and line 80 
then ensures that the loop terminates with this horse. There are 
thus no dead-heats, as movement ends as soon as a horse crosses 
the line. 40 calculates all the new positions for parts of the horse’s 
body, based on the position of its front leg, and 50 erases the 
horse. 60 finds the new positions, and the last part of the line 
ensures that the legs are straight and at an angle on successive 
moves. 70 draws the horse at its new position, 80 ends the loop 
early if the horse has just won, otherwise 90 continues the race. 


100-170 Winnings and losses routine. 105 checks if you picked the 
winner. If you did, 110 calculates your winnings and 115 displays 
them. If you are broke, 120 ends the game. Otherwise, 130 checks 
if you have reached the winnings target, and you are given the 
option of continuing or retiring gracefully, 140. 150 sets up anew 
race, 160 and 165 giving various messages depending on whether 
you gave up betting or ran out of money. 


900-920 Initialisation routine. 


960-1070 Game set-up routine. 1005 adds one to the race number 
and picks a random number of horses to run in the next race. 1010 
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picks a random name at which to start reading the names of the 
horses to run in the race. 1015 generates horse movement 
numbers and 1020 saves that number and the horse’s name to the 
arrays H( ) and H$( ) respectively. 1040-1070 find the odds for 
each horse, the very slow ones having their odds increased by 
1050! 1060 adds or subtracts a random amount from the odds, the 
latter only when the horse has a very good chance of winning. 


1080-1190 Start race routine. 1090-1150 print out information 
about the race, and takes and checks your bet. 1160 picks each 
horse position, going up the screen with 4 lines between each 
horse — this can be amended to bring them closer together or to 
spread them out. 1170-1180 calculates the positions for different 
parts of the horse’s body, and pokes it on-screen. 1190 pokes the 
finishing line into place. 


2000-2030 User defined character creation routine. 


3000-3010 Horse name data. 


Important variables 

DV Dice value — used to pick movement number for each 
horse. 

F Flag — set to 1 when a horse crosses the finish line. 

HB Horse back leg position. 

HF Horse front leg position. 

HH Horse head position. 

HN _ Horse new front leg position after movement. 

HT Horse torso position. 

LH Largest number of horses in race. 

NH Number of horses in race. 

OD = Odds for horse. 

PH _ Screen position of horse’s front leg at start of race. 

R Race number. 

SH Smallest number of horses in race. 
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SP __ Start position for poking horses on-screen at beginning of 
race. 


T1, T2 Tab positions to align horse names and odds on-screen. 
TH _ Total number of horse names available. 

TM Target money to be won by player. 

WH_ Winning horse number. 

YB = Your bet. 

YH Your chosen horse. 

YM Your present money. 


YW = Your winnings. 


Symbols used 


Bl _— Set equal to BD or BS, the back leg symbols. 
BD Back leg diagonal. 

BS Back leg straight. 

Fl Set equal to FD or FS, the front leg symbols. 
FD Front leg diagonal. 

FL Finish line symbol. 

FS Front leg straight. 

HS Head symbol. 

OS  Nought symbol— symbol for number zero. 
TS Torso symbol. 


10 PRINTCHR# (6) CHR$(17):GOTO900 

15 FORA=1TONH:H1=INT(RND(1) #6+1) sH2=INT(RND(1) 
#6+1) 

20 ITFH(A)< sHItH2THENDO 

30 HF=P(A):PF=PEEK (HF) :HN=HF +1: TFPEEK (HN) =FLTH 
ENF=1 

40 HB=HF-2:sHT=HF-LL-i:sHH=HF-LL#¥2 
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50 POKEHB,32:POKEHT,32:POKEHF, 32: PQKEHH, 32 

60 HB=HB+i:HT=HT+1:HH=HH+1:Bi=BS:Fi=FS: TF PF=SFS 
THENBL=BD:F1=FD 

70 FOKEHB,Bi:POKEHT,75:POKEHN,F1:POKEHH,HS: P(A 
) =HN 

BO IFF=1THENWH=A:A=NH 

90 NEXTA: IFF=OTHENIS 

100 PRINT: PRINT: PRINT"The winner was horse num 
ber “;WH;H#(WH) 

105 IFYH<¢ >WHTHENI 20 

110 YW=YB#*O (WH) 

115 PRINT"You get B's VWs". "2 YM=YN4VWs GOTOL3O 
120 YM=YM-YB:TFYM=OTHENI4695 

130 TFYMS=TMTHENISO 

135 PRINT"You now have €"s¥N;". © 

i460 PRINT'Do you wish to continue betting"y:1h 
FUTAS 

150 IFAS="V¥"THENF=0;G0TO1000 

160 PRINT"You have finished with £";¥me"." 

170 END 

900 TL=£BRBD2: TR=£BRRFS: BL=£BRECA: BR=£BEED: LL =40 
910 HS=91:TS=92:BS=93:FS=94: BDL 2a rF Dat 24: FLai 
25:05=48 

915 FORZ=917094: GOSUBZ000: NEXT: FORZ=123T01 25:6 
OSUBZ2000: NEXT 

920 YM=200: TM=2000: SH=2:LH=5: TH=B: RO: Tl=3: 12s 
20 

960 CLS:PRINT"Do you want instructions (¥/N)"; 
965 INPUTAS: I[FA#="Y¥"THENGOSUBSOG0 

1000 CLS: INKO:PAPER2 

1005 R=RK+i:NH=INT(RND (1) #(LH-SHi+SH) 

1G10 NA=INT(RND(1)#(TH-LH)):FORB=1TONA: READAS: 
NEXT 

1015 FORA=iTONHsHL=INTCRND (1) #641) 2H2=INTCRND¢ 
1)#*6+1) 

1020 H(A) =HI+H2: READAS: H$ (A) HAE 

£040 DV=H(A): IFDV>7THENDV=14-DV 

1050 OD=10-DV: TFDV<4THENOD=O0D#2 

1060 EX=INT(RND(1)#0D):1TFRND(1) 20, SANDDV?4THEN 
EX=-EX 

1670 GCA) =OD+EX:NEXTA: RESTORE 

1080 CLS 

1090 PRINT"Race number "“sRsPRINTNH;" horses ru 
nw" 
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1100 PRINTTAB(Ti); "Name"; TAB(T2)3 "Odds" 

1105 FORA=TLICBLSTEPLL: POREA,WS:POREAt+OT WS:NE 
AT 

1110 FORA=i1TONH:PRINTA;H# (A); TAB(T2Z); Ui Ais “to 
L':NEXTA 

1i20 PRINT"What number horse will you back";:l 
NPUTYH 

1i30 YH=INTCYH): IFYHELORYHFNHTHENI 120 

1140 PRINT"How much will you bet";:INPUTYE 
1150 YR=INT( YB): IFYM-YB<GORYH?NHTHENI120 

{*60 CLS:SP=BL-LL+3:FORA=1TONH: PH=SPF-(A-1) #4 #L 
L:P(A)=PH 

1170 HF=PH:HR=HF-2:HT=HF-LL-1:HH=HF-(LL¥2) NH 
B-1 

1180 POREHBR,8S:POKEHT,1TS:POKEHF ,FS:POKEHH,HS:P 
QOKEN,GS+A 

1190 NEXTA:FORB=TRIGBRSTEPLL:POKEB,FL:NEXTB:60 
TOS 

2000 X¥=4608047¥8: FORG=XKXTOXX+7:REAOGU: FOKEO,U: 
MEXT: RETURN 

2010 DATAO,9,0,0,32,32,56,56,1,1,1,1,63,63,638, 
63,i,1,1,1,1,1,0,90 

2020 DATA32,32,32,32,32,32,0,0,1,2,4,8,16,0,6, 
2,16,8,4,2,0,0,% 

O DATALZ,12,12,0,0,12,12,12 

S000 DATA" RED FRED "," BULLET "." STAR "," Ka 
NGARGG * 

S010 DATA" SHOREY ",* GUTSY "," THE FLIER "," 
SLOWCOACH 

Sood CLSO:FRINT* You have £'; VMs "to bet, You"rFR 
INT’ must aim tea end up with" 

S010 PRINT"€":TMs" or more. The adds given":FR 
INT'¢or each horse are a guide to its" 

5GZ0 FRINT'chances, but outsiders can win!" 
S030 PRINT:FRINT“Press any key to continue. ":6 
ETAS:RE TURN 
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Warrior 





As the captain of a fleet of starships you seek to bring vital 
supplies to an orbiting space station. But every movement of 
your ships is fraught with danger, for the space station is 
menaced by constant asteroid showers. One by one you despatch 
your ships — will any of them survive? 

The only problem in this program is caused by the asteroid 
movement. 260-290 create a random diagonal movement which is 
assigned to all the asteroids, so that they move as a body across 
the screen. The asteroids are moved in lines 14-18, and line 14 
moves asteroids going off the top of the screen back to the 
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bottom. Line 16 moves asteroids going off the bottom back to the 
top. Line 17 is necessary because the left hand side screen 
locations are used by the Oric to define the foreground and 
background colours for that particular line. If an asteroid moved 
into these locations, the background and foreground colours for 
that line would be lost, and the entire line would turn black. Line 
17 thus checks that the next memory location does not contain a 
character code lower than 32, as a number in this range must be 
the code fora colour. Any asteroids about to strike these locations 
are instead shifted across the screen to new positions. 


Program notes 


10 Keyboard click and cursor off. 
14-18 Asteroid move routine, as explained above. 


20 pokes the space station back into position in case an asteroid 
has just moved over it, and checks that the present starship 
position is not occupied by an asteroid. 


30-90 Keyboard control routine. 


150-230 Starship move routine. 150 omits this section if no key 
has been pressed. 160 checks the new position for asteroids or the 
space station. 170 dooms any ship with no fuel to drift helplessly 
while the asteroid shower continues. 180 ensures the ship does 
not move off-screen, 200 erases the ship from its old position and 
210 draws it to its new one. 220 reduces the fuel and plots its 
amount on-screen, 230 completes the loop. 


250-305 Game set-up routine. Used at the start of the game or 
whenever a starship is destroyed. 260 selects a random move- 
ment for the asteroid shower, 270-290 randomly position the 
asteroids on-screen and save their locations in the array A( ). 


300-350 Game and routine. Various comments are offered and a 
score is given. 


900-950 Initialisation routine. 

960-1000 Offer instructions and clear screen for game start. 
2000-2020 User defined character creation routine. 

5000 onwards — instructions and setting of skill level. 
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Important variables 


AD 


Asteroid direction of movement — to select value from 
D( ). 


AM_ Asteroid movement — one of the 4 diagonal moves from 
DE yz 

AN _ Asteroid’s new position after movement. 

AP _ Asteroid’s present position. 

AX _ Asteroid’s x coordinate relative to BL at game-start. 

AY _ Asteroid’s y coordinate relative to BL at game-start. 

FF Full fuel supply — starship fuel units at game-start. 

MD _ Mystarship direction — to select value from D( ). 

MP Mystarship position. 

NA Number of asteroids. 

NP  Mynewstarship position after movement. 

SD _ Starships destroyed. 

SF Starship fuel—units remaining. 

SP Space station position. 

ST — Starship—number of starships that can be used. 

Symbols used 

AS _ Asteroid symbol. 

ES Explosion symbol. 

MS Mysymbol—a starship. 

SS Space station symbol. 


10 PRINTCHR$ (6) CHR#(17):G0TO9G0 

14 FORA=1TONA:AP=A(A) sAN=AP+AM: [FANS TLTHENAN=A 
N+DL€Le 

16 IFANSBLTHENAN=AN-DL&LL 

17 ITFPEEK (AN) <32THENAN=AN+tLL/ 2 

18 POKEAF,32:A(A) =AN: POREAN, AS: NEXT 
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20 PORES ,SS:P=PEER (MP): TFRs @MSTHENPORKEMF,ES:6 
OTO240 

30 AS=KEYS:MD=G: IFAS="W"THENND=0 

33 TFAS="E"THENMD=1 

40 [FAS="D"THENMD=2 

SO TFA#="C"THENND=3 

60 ITFAS="X"THENMD=4 

70 TFA#="Z"THENMD=5 

BO IFAS$="A"THENMD=64 

90 TFA#="Q"THENMD=7 

150 IFMD=8THENNF=MP:GO0TO170 

160 NP=MP+D (MD) :N=PEER (NP): TFNS SS ZANDNe 2SSTHEN 
POKEMP ES: EXPLODE: GOTOZ40 

1706 IFSF=OTHENI4 

180 IFNFs TRORNP SBLTHEN220 

200 POREMP, 32: TFN=SSTHENPORENF .MS:GOTG320 

210 MP=NP:POKEMP,MS 

220 SF=SF-1:S5#=STR#(SF):FPLOTI7,24,9¢% 

250 6GOTO14 

240 SD=SD+i: TFSD=STTHENSI9 

200 FLOTS,24,"Spaceship destroyed": WAIT(S00) 
260 BD=ZeINTCRND (i) #4) +1: TF BD=i THENBPEBL 

270 CLS: FORA=1TONA:AX=INT(RND CL) #07) SAYSINT CORN 
Diis*DLi 

260 [TFRDSSTHENBFSTR 

290 AN=BL+AX-AYeLL:FOREAN, AS: A(AISAN: NEST 

295 SP=TL+4#D iS): PGRESP SS:FLOl1i, #4. "Fuels" 
300 AD=2Z*eINTCRND (1) #4) 41: 46N=0 (80) :S5F=FFsNPSRR- 
bb=1 

305 POREMF,MS:G0TO14 

310 CLS:PRINT"You failed to reach the space st 
ation. ":G070256 

320 CLS:FRINT*Well done! You reached the space 
"SPRINT"station with ship “;S50+1 

330 PRINT"using "sFF-SF;" fuel units. This was 
"SPRINT" at skill tevel "ySL 

340 PRINT"This is a total score of "s;SL#(ST-SD 
)#5F 

350 END 

G00 DIMA(Z20);TL=£BBD2: TREEBRF OG: BL=£BECA: BR=LBE 
ED:LL=4a 

910 AS=FLPES=92:h5=93:55=94 

915 FORL=917094: G0SUBZ90G; NERT 

920 S0=0:9T=3:FF=300 
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Starship Warrior 


D(O)=-LLI Dili =-LLti:D(2Z)=1:D¢S)=LiLt1 
Di4s=LlLiD(S)=Li-i:0(6)5-i:Dt7)=-LL-1 
DT=TR-TL: DL=(BL-TL) /LL 

CLS:PRINT"Do you want instructions i¥/N)"; 
INFUTAS: [FAF="¥" THENGOSUBSCO0: GOTOiGGG 
BOSUBSO050 


L000 CLS: INKO:PAPER4: GOTOZ66 

2000 XX=46080+748: FORO=XXTOXK+7:READULPOKEG, Us 
NEXT:RETURN 

2010 DATAI4,31,62,31,30,60,26,6,8,2,32,1,16,4, 


0,0, 


12,12,12,12,12,63,45,45 


2020 DATAO,12,18,63,63,16,12,6 
SO00 CLO:FPRINT" you must try to lang on the spa 


ce"s 
S005 PRINT"through the asteroid showers. You 


PRINT"station by guiding vour ship" 


u 


:PRINT" begin at the bottom right, and® 
SO1G FRINT"the space station 1s near the tap’: 
FRINT'ieft. You have "s5T;" ships each” 
5020 FRINT"with "sFF:" units of tuel. The": FRI 


NT"number of asteroids depends cn 


a 


S030 FRINT"skill level." 
5035 PRINT:PRINT"Controls ~- use the keys aroun 
d the":FRINT“letter &:" 
5040 PRINTSPC(16):"°G W E*:PRINTSPCti7};"A S GB" 


tFRINTSPC(LG); "2 x C8 


S050 PRINT:PRINT’ input your skili level, i, ea 


SY. 


5060- 


to":FRINT"LO,hard": 
iNPUTSL: LFSole lORSL1OTHENSOSO 


S070 NA=SL#Z:RETURN 
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You control a little man who must constantly keep on the move. 
Any time he pauses too long in one place, blocks begin to appear 
around him. If he is too slow, he will be completely surrounded 
and unable to move. 

This is definitely the game for those who fancy they have quick 
reflexes! One part of the game which might tend to slow things 
down is the necessary routine that checks if the man is completely 
surrounded, in which case we want the game to end. It might 
seem that we must look at all 8 positions surrounding the man at 
every ‘turn’, but this is not the most efficient method. It will be 
quicker if the positions around the man are only examined until a 
space is found. If there is a space nearby, the man can still escape, 
and the game continues. Lines 160-190 carry out this procedure, 
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and by only looking at the surrounding positions until a space is 
found, the game is speeded up. 


Program notes 


10 Keyboard click and cursor off. 
20-100 Keyboard control routine. 


110-115 Player move routine. 110 checks if the new position is a 
wall or block, and 115 pokes the man to the new position if it is 
clear. 


125-140 Block position routine. 125 omits this section if the skill 
level is too low, 130 chooses a random position for the block, and 
140 pokes it next to the man if the skill level is high enough. 


160-200 Man surrounded routine. Each position around the man 
is checked until a space is found. If no space is found 200 will 
terminate the game. 


220-230 Time and pause whose length depends on the skill level. 
250-280 Game end routine, including the score. 
900-950 Initialisation routine. 


960-1110 Game set-up routine. 1100-1105 draw the walls around 
the playing area, 1110 pokes the man on-screen. 


2000-2010 User defined character creation routine. 


5000 onwards — instructions and setting of skill level. 


Important variables 

CM Computer movement — used to pick movement from 
D( ). 

CV Computer velocity — high values give slow games. 

MD_ Man direction — used to pick movement from D( ). 

MP Man position. 

NC_ New block position. 

NP Man’s new position. 
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Symbols used 


BS 
MS 


Block symbol. 
Man symbol. 


WS _ Wall symbol. 


io 
20 
30 
40 
50 
60 
70 
ec 
rae) 
Loo 
110 
aa 
115 
125 
130 
140 
160 
{Fa 
L160 
190 
2OG 


a0 
al 
240 


250 


330 
a40 
950 


P=B 
100 


FRINTCHRS (17) CHRE (67 :G0TOF00 
MD=B:AF=KE YS: TFAS="W"THENMD=H0 
IFAS="E"THENMND=1 

TFAS="D" THENMD=2 
TFA¢="C"THENND=3 
TFAS="*"THENMD=4 
[FAS="Z2Z"THENMDSS 
IFAF="A"THENMD=6 
TFAS="O"THENMD=7 

TFMD? /THENL SO 
NP=MP+G (NO): PEPEER CNP): TFPEWSORPSBSTHENI 


POREMP,05:4P=NP:05=P:POKEMP,MS 
TFRNG CL? sSLTHENZ 2G 
CMEINTCRND (1) #8) NCSMNP+D (CH) 
IFRND (1) 2 SCTHENFORENC BS 

A=0 
CNED(AISNCHMP+C Mr CNSPEER ONC) 





WAITT(COV) :G0TG20 

CLS:PRINT* your time to blockade was "yT 
FRINT’At skill levei "r5L4i¢ 

PRINT A total score of "75LeioxT 

G END 

TLE BROS: TRAELRRF OS: BL=£BECA: RRELBEEC? LL =4 


M5sF1i:kss7e:wWb=93 


» FORZSSL POS: GG5UB2Z9000: NEXT 


TeOrNBed: Thao 

GO; es-LisrDeibe-Lbeii OCs eis hb (Si ellel 

D(H SLL GCS) all -iibtosee tid 7is-bLi-l 

UTeTR-TL:DL=BL-TLICRSTL+iNT (OTs 2) +64"L lM 
R-LL~-1 


Trap 


#60 CLS:FRINT"Do you want instructions (Y/N) 

965 INPUTA: IFAS="¥"THENGOSUBSO00: GOTOLOG0 

9660 GOSUBSOSG6 

Joud CLS 

LidQ FORRETLTOTR:POKEA WS: FOREAtDL WOsNEXT 

Lid5 FORA=TLTOBLSTEPLL:FOKEA, WS: FOKEA+DT WS: 

NEXT 

L110 PLOTL2, 24, "TNE: "s FOREMP Mos bOTO20 

COU AKSFOURGCL HBL FORGEXATORA TT CRENDUSPOREG, 

UsWEals RETURN 

ably DATAI4, 14,49,81.4,4,10,17,68,.58,33, 38,38 

35,565,645 ,65 POE an ge 

5000 CLS:PRIWT"In Trap you must try to escap 
“SFRINT "walls which will surround vou" 

ae PRINT"L4 vou linger ton long in one"akR 

INT’ spot. fry to keep free tor as lang” 

BOa0 PRINT"as possible. When you are"sFRINT" 

completed y surrounded the game ends,” 

S080 PRINTS PRINT "Contrals - on the keys aro 

und the":FRINT"S key to moves! 

HOO0 FRINTSFO (lols "GQ W E"SFRINTSFOCI7)4 "8 $ 

Dh aPRIWITSPO (LB ry te ok 0" 

S70 FRUINTSPRINT "Input vour skill level, 1, 

easy" SPRINT "to Lo. harg’s: TNFUTSL 

Sado (FSS TORSL se LOTHENS a GO 

S90 C¥eileSirSle5l/ la; RETURN 
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In this game you are a snake and you must try to kill a rat by 
running into it and biting it with your venomous jaws. However 


the snake is continually moving, and you will perish if you bite 
yourself or touch the electrified walls surrounding you 


In this game the parts of the snake’s body are stored in an array, 
the tail being stored as S(1) and so on. The highest array value 
thus contains the present position of the snake’s head. Whenever 
the snake moves the tail position is erased and a new segment is 
added on at the snake’s head, thus keeping the snake a constant 
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length. As in the earlier program, Caterpillar, the snake is moved 
through an array to keep a constant record of positions of all parts 
of the body. Note that if you choose a long snake to make hunting 
the rat easier, you will find it moves very fast and you will often 
miss your target. 


Program notes 


10 Keyboard click and cursor off. 


20-80 Keyboard control routine. Horizontal and vertical move- 
ments only are catered for. 


110-160 Snake move routine. 110 finds the new snake position 
and checks if you have bitten yourself. 120 checks if you have got 
the rat, and 130 checks for hitting the electrified wall. 135-145 
move the snake to its new position, 150 updates the time, and 160 
decides on the basis of skill level whether or not the rat should 
move this time. 


170-190 Rat move routine. 170 selects a random movement from 
the array D( ), and checks that the new position is not a wall, or 
the snake, 180. 190 pokes the rat to its new position. 


200-280 Game end routine. Various messages are given 
depending on the outcome of the game, as well as the score. 


960-1210 Game set-up routine. 1100-1105 pokes the electrified 
walls to the screen, 1110-1120 choose a random position for the rat 
and poke it to the screen. 1170 picks a random position for the 
snake’s head, and 1175 checks that this is empty. 1180 pokes the 
head and the rest of the snake’s body on-screen, continuing in 
that direction until a position is occupied and a new direction for 
the body must be found, 1195. 1210 begins the game. 


2000-2030 User defined character creation routine. 


5000 onwards — instructions, selection of snake length and 
setting of skill level. 


Important variables 
BS Biggest snake length allowed. 


LS Selected snake length. 
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MD_ My direction of movement — to select a value from array 
D( ). 

NP  Newhead position for snake. 

RM Rat movement — to select a value from array D( ). 

RN Newrat position. 

RP Present rat position. 

RX _ Rat’s x coordinate relative to BL. 

RY _ Rat’s y coordinate relative to BL. 

ST Snake tail position. 

SX  Snake’s x co-ordinate relative to BL. 

SY — Snake’s y co-ordinate relative to BL. 

TS _ Tiniest snake length — smallest selectable snake length. 

Symbols used 

H Snake head symbol, varying with movement direction. 

RS Rat symbol. 

SS Snake symbol. 

WS _ Wall symbol. 

10 PRINTCHR# (6) CHRE (17): 60TO900 


20 AS=KEYS: TFAS="W"THENMD=0;H=93 


40 

60 

BO 

1id 
120 
136 
{35 
140 
145 
isa 
160 
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IFAS="D"THENMD=2:H=94 
IFAS="X"THENMD=4:H=95 

IFAS="A"THENMD=46:H=76 

NP=SH+D (MD) sP=PEER (CNP): TFR=SSTHENZ10 
IFF=RSTHENZ 30 

TFP=WSTHENWH=1:G0TO0270 

S=S+1:ST=ST+is TFST?7O0THENST=0 
IFS52900THENS=G 
S(S)=NP:PORENP,H:PORENP-OCMND) ,SS:PGRES (ST) 


THT+i:PLOTi7,24,STR#(T) 
SH=NF: TFRND (1) *SLTHENZO 


Ratkiller 


170 RM=INTCRND(1)#8):RN=RP+D (RM): REPEER CRND: TE 
R=WSTHENZG 

180 ITFR=SSTHENZ30 

190 POKERP,32:RP=RN: FORERP,RS: TFTA TETHENSG 

200 PLAYO,O,0,0:WAIT(390):CLS:FRINT* Your time 
has run out. ":6070270 

210 PLAYO,0,0,G:WAIT (300) 

220 CLS:PRINT"In your excitement you bit yours 
elf":PRINT"and died, ":G0TO270 

250 PLAYO, 3,1, 1000: WAIT( S00) :CLS:FRINT" You sei 
ze the rat in your poisan" 

239 PRINT"fangs and inject it with poise 
240 FRINT"in time "3Ty" at skill level “:SLé#ly 
265 PRINT"A total score of “s(TE-T) #5 Le10 

270 TFWH=1THENCLS: PRINT" You blundered into a w 
all and killed":FRINT"yoursel¢," 

280 END 

500 DINS (900): TL=£BBD2: TREfBRRFS: BL=£RECA: BR=£K 
EED:LL=40 

910 RS=91:95=92:H=95:WS=123 

915 FORZ=917TO96:GOSUBZ000: NEXT: Z=WS: GOSUBZ O00 
920 TO: TE=400:;ND=4:RD=0: TS=4: 85=19:5T=0 

930 DAO) S-LLIDCLIS-LL+1i: Di 2)atrD CS) SLL +i 

940 D0¢4)5LL3D05)=LL-1:D(6)=-1:0(07)5-Lt-1 

950 DT=TR-TL:DL=BL-TL:SZ=BL+2#D (1) 

960 CLS:PRINT"Do you want instructions (¥/NI"; 
965 INPUTA$: [FA#="¥" THENGOSUBSO00: GOTOLO0G 

980 GOSUBS050 

1000 CLS: INKO:FAPERZ 

1100 FORA=TLTOTR:POKEA, WS: POREA+GL,WS:NEXT 
1105 FORA=TLTOBLSTEPLL: POKEA,WS:FOREAtDT ,WS:NE 
XT 

1110 TD=DT-4:5D=(DL-4#LLI /LLERA=OUNTCRND (1) *TD+ 
1} 

L120 RY=INTCRND (1) #5041) :RPSSZ+RX-RY*LL: PORERP 
RS 

L170 SX=INTCRND(L) #TD4#1):SYSINTCRND (i) #5041055 
H=5Z2+SX-SY#*LL 

{175 IFPEEK(SH)< 232 THENII70 

1186 S(LS}=SH:SP=SH:FORESF,S5:FORA=LS-iTOISTEF 
-1 

1190 NF=SP+D(RD) 

1195 IFPEER (NF) < 232THENRDSINTIRND (1) #8+1):60T0 
L190 


wit 
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1200 SP=NP:5(A)=NP:POKESP,SS: NEXT 

1210 SH=S(LS):PLAYO,1,4,100:60T020 

2000 XX=46080+2*6:FORO=KXTOXXK+7:READU: FOKEC,U: 
NEXT: RETURN 

2010 DATAI8,30,12,63,12,12,30,51,12,12,168,51,5 
1,16,12,12,9,0,0,0,33,18,12,12 

2020 DATAG,4,8,48,48,8,4,0,12,12,18,33,0,0,0,0 
90,8,4,3,3,4,8,1% 

2030 DATA63,63,63,63,65,63,63,63 

5000 CLS:FRINT"You are a hungry snake chasing” 
:PRINT"a rat. Your poison i5 50 deadly" 

5005 FRINT“that even to touch your skin is":PR 
INT"fatal - so don't bite yourself!" 

S019 FRINT"You must catch and kill the snake": 
FRINT"in time ";TE 

S015 PRINT"Long snakes can encircle the rat"sF 
RINT"more easily but you are more” 

5020 PRINT"Llikely to bite yourself.” 

SO20G PRINT:IFRINT"A@void hitting the walls - at 

the" :PRINT"speed you're moving hitting’ 

hS5 PRINT" your head will probabiy be fatal!" 

O40 PRINTS PRINT"Controls - use the keys aroun 
the S:":FRINTSPFO(Laiy “W" 

245 PRIANTSPO (LOI: 7A O° sPRINTSPO te) gk" 

S030 PRINT:FRINT"How long do yeu want ta te, f 
ram’:PRINTTS;" units to “ys 

S06c PRINT"units' ss: TNPUTLS 

su7t TFLS<TSORLS?RBSTHENSOSO 

GOGO FRIATIPRINTS input skill levei, | for siow 
rates ’:PRINT"ug to 1% for very fast"; 

Soot INPUTSL:TPSLeA i ORSL e1LOTHENS OBO 

S106 S=L9:SL=5L/ 10: RETURN 
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Catch 





In Catch numbers bounce around the screen and off obstacles. If 
you can catch the numbers they are added to your score. At the 
higher skill levels there are an awful lot of obstacles and things 
can get very difficult! 

Programming the movement of the number as it bounces off 
obstacles is fairly straightforward, because to make the number 
harder to catch its movement should be unpredictable. A number 
must sometimes bounce in a different direction if it hits the same 
obstacle more than once, otherwise a player need only ‘lie in wait’ 
for the number to catch it. Line 160 thus chooses a completely 
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random movement for the number ball whenever it strikes an 
obstacle. 

For similar reasons the number’s initial appearance on-screen 
must be unpredictable, and lines 260-290 ensure that it appears 
randomly from one of the four corners of the playing area. 


Program notes 


10 Keyboard click and cursor off. 


20-100 Keyboard control routine. The player tries to catch the 
number by moving in any of the 8 major compass directions. 


110-130 Player move routine. 110 finds the new position and 
checks that it is not a wall. If it is not, it must be either a space ora 
number, and 120 adds this number to the score if necessary. 130 
pokes the player’s symbol to its new position. 


150-210 Number move routine. 150 finds the new position and 
erases the number from its previous position. 160 picks a random 
direction of movement when an obstacle is hit. If the number hits 
the player’s symbol, the number value is added to the score, 170. 
180 moves the ball to its new position, 190 shows the time taken 
so far, 200 is a pause whose length depends on the skill level, and 
210 ensures that the whole procedure is repeated until the time 
limit is exceeded. 


220-230 Game end routine, giving the score. 


250-320 Ball serve routine. 250 checks that not all the balls have 
been used, 260 chooses a random diagonal movement for the 
number, and the remainder of 260 and lines 270-290 pick the 
appropriate corner from which the number is ‘served’. 300 finds 
the number’s new position and 320 places it there. 


900-950 Initialisation routine. 


960-1160 Game set-up routine. 1100-1105 draws the sides of the 
playing area, 1120-1150 pokes random obstacles on-screen, their 
number depending on the skill level. 1160 pokes the player’s 
symbol on-screen. 


2000-2010 User defined character creation routine. 
5000 onwards — instructions and setting of skill level. 
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Important variables 


BD 


Ball direction of movement — used to choose value from 
D( ). 


BV Ball velocity. High values slow ball. 

MD_ My direction of movement — used to choose value from 
DO) 

MP My position. 

NB Number ball new position. 

NP  Mynew position. 

NW_ Number of obstacle walls. 

S Score. 

WP Wall position for obstacles. 

WX Wall x coordinate relative to BL. 

WY Wall y coordinate relative to BL. 

Symbols used 

BS Number ball symbol — set to character code for numbers 
0-9. 

MS Mysymbol. 

OS Zero symbol— character code for number 0. 

TS Top symbol — character code for number 9. 

WS __ Wall symbol — used for both walls and obstacles. 


10 PRINTCHR# (6) CHRS (17): 6070906 

20 REPEAT: AP=KEY#iMDeGs LFAS="W" THENMDHU 
30 ITFAS="E"THENMD=1 

40 TFAS="D" THENMD=2 

s0 IFA#="C"THENND=3 

60 TFA#="X"THENND=4 

7O TFA#=" 2" THENND=5S 

6O TFA#="A" THENMD=6 

90 [TFAS$="Q"THENND=? 
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100 TFND?7THENLSG 

110 NF=MP+D(HD):P=PEER CNP): DFP=WSTHENISO 

i20 ITFP2 S32 THENS=S+S5L*(P-OS) :FORENP,32:G60TOG250 
120 POKEMP,32:4P=NP:POREMP MS 

i5G NB=BP+D(BD):B=FEER (NE) :POREBP, 32 

160 IFB=WSTHENBD=Z#INTCRND(1)#4)4+1:G0701590 

170 IFB=NSTHENS=5+S5L#(BS-05):60TG25u 

180 BR=NB:POKERP,BS 

190 THTt+i:PloTi?7,24,STR#(7) 

200 WAITCBY) 

216 UNTILT?=TE 

220 CLS:PRINT"Y¥ou scored “:5;" points at skill 
level "35L 

230 END 

25G PING: IFBS<TSTHENBS=H85+1 

260 BD=Z*INT(RND( 1) #4) 41: TFRD=1THENBP=BL 

270 TFBD=3THENBFETL 

280 IFRD=STHENBF=TR 

290 IFBD=7THENBF=BR 

200 BPS=BP+D(BD): ITFREER (BP) < sS2THENZ OO 

320 POKEBP,BS:G0TO20 

900 TL=£BBD2: TRELBRFS: BL=£BECA: BR=LBEED: LL a4 

910 09=48:;75=37:BS=0S:M5=9i:wS=92 

SiS FORZ=917T092:G0SUB2000: NEXT 

920 5=0:T=0: TE=200 

930 D(O)VS-LLI Ob a-LiL tii bl 2) =i BCS Rll ti 

940 D4) sbLbL:1D¢5)SLL-1:0(6)5-1:0(7)5-LL-1 

950 DT=TR-TL:DL=BL-TL: MP=BL-LL+i1 

$60 CLS:FRINT"Do you want instructions «¥/N)"y 

965 INPUTA#: LFAF="Y¥"THENGOSUBS000: GOTOLO04G 

580 GOSUBSOS0 

iooo CLS 

1160 FORA=TLTOGTR: FOKEA,WS:POREA+DL, WO: NEXT 
1105 FORA=TLTOBLSTEPLL: POKEA, WS: POKEA+DT WS: NE 

XT 

1120 DT=DT-6:DL=(DL/LL)-6: FORA=1TONW 

L130 WXEINTCRND (CL) #DT+3) 2 WY=INTCRND (GL) *0L +3) WW 

P=BL+WX-WY*LL 

1146 IFFEER (WP) s32THENLI30 

1150 POKEWP,WS:NEXT 

ii55 PLOTLi,24,"TIME:" 

1i60 PORKEMP,MS:G0TO250 

2000 Xk=460G04+748: FORG=XXTOXX+7:REAGUSFOREG,U: 

NEXT:RETURN 
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2010 DATAGS,51,45,30,30,45,51,63,63,65,63,63,6 
3,63,63,63 

5000 CLS:FRINT"You must try to catch the numbe 
rs":FPRINT"bouncing on the screen.” 

5005 PRINT"The tirst number is Il: after that": 
FRINT"numbers increase by 1 until 9 i5" 

5010 FRINT"reached. To make things harder, the 
"SPRINT "speed of the ball and the" 

scz0 PRINT’ number of obstacles on screen also” 
:PRINT’ vary with the skill level," 

Suga FRINT: PRIN? "Controls ~- use tne keys aroun 
d the":FRINT"S to move:' 

S040 FRINTSPO(14)3"G W E"sPRINTSFC(i7)3"A 5 D0" 
rPRINTSPCi6) 3 "2 x C” 

5050 FRINT:PRINT"Input your skill level, 1, ea 
sy, to":PRINT"LO,hard"; 

50460 INPUTSL: TF SLE LGRSLS1LOTHENSOSO 

SO7Q0 NW=SL#2:BV=Li-SL: RETURN 
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In this game you must drop bombs into a canyon filled with 
numbers. Each number hit is added to your score. Bombs fall at 
an angle, and the game becomes quite difficult when there are 
just a few numbers left, as you are only allowed a limited number 
of bombing runs which produce no addition to your score. 

The setting up of the canyon is a complex matter, as it is 
randomly drawn each time, and the screen locations for the top 
and bottom of the canyon must be determined. The canyon must 
also not contain any ‘blind’ spots which cannot be bombed. 
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As the canyon is constructed in subroutine 3000, a column of 
numbers is drawn over each position. As the bombs fall at an 
angle, it is easy to knock the middle out of a column of numbers. 
To leave the remaining numbers hanging in the air would be 
unattractive, to say the least! 

So every time a bomb strikes, line 140 moves all the numbers 
above the strike position down one line. This involves a lot of 
peeking and poking, so in this program a running score is 
omitted to help speed things up. A final score is, however, given 
at the end. 


Program notes 


10 Keyboard click and cursor off. 


20-50 Plane move routine. 20 finds the plane’s new position and 
checks if it has reached the right or left of the screen. If so, 25 
reverses the flying direction, and the appropriate plane symbol is 
picked, the remainder of 25, and 26. 30 checks to see if the 
previous run across the screen produced a scoring hit. 40 adds 
one to the bomb misses if necessary, and checks if the allowable 
miss total has been reached. 50 then pokes the plane to its new 
position. 


60-110 Bomb drop routine. BF is the bomb flag, if in 60 this is 1, a 
bomb is dropping and another may not be dropped until this one 
explodes. 70 is a keyboard control to see if you wish to drop a 
bomb. 80 sets the initial bomb position to that of the plane, and 
90 moves the bomb to a new position and checks if the canyon 
wall has been hit. 100 draws the bomb at its new position and 
then erases it. If the bomb has moved to an empty position, the 
program loops back to move the plane again, 110. 


120-150 Rearrangement of numbers plus scoring routine. 120 
adds the number hit to the score, and notes that the number hit is 
now one more. 140 moves down all the numbers above the one hit 
so that the empty space is filled, 150 continuing the movement 
until all the numbers in that particular column have been moved 
down. 


155-170 Score: this is doubled if all the numbers have been hit, 
155. 
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900-1005 Initialisation of variables. This section is longer than 
usual because it involves the random determination of the 
positions of the left and right cliff-top sections of the canyon, plus 
the left and right canyon bottom positions. 1000 makes sure the 
canyon bottom is not off-screen. 


1010-1100 Game set-up routine. 1020-1100 draw the canyon, all 
using sub-routine 3000 to draw different parts of the canyon. 1080 
gets rid of two excess numbers introduced in the process, 1100 
pokes the plane to its start position and play begins. 


2000-2020 User defined character creation routine. 


3000-3050 Draw canyon subroutine. This also puts a number 
stack above each part of the canyon. First the canyon floor is 
poked into position, 3000. 3005 and 3010 between them randomly 
determine the first number to be poked onto this part of the 
canyon. Successive numbers poked above this will be of lower 
value. 3030 counts the numbers as they are poked onto the screen, 
and calculates the position and value for the number to be poked 
above the present one. If this value is one or more, and the 
position is not above the right-hand cliff top, this number can 
also be poked to the screen, 3040. Otherwise the program will 
move to the next position along the canyon and repeat the 
process, 3050. 


5000 on — instructions. 


Important variables 


BD __ Bomb direction of movement — diagonally left or right. 
BF Bomb flag — set to 1 when bomb is dropped. 

BH Bomb hit flag — set to 1 when hit is made. 

BM Bomb miss count. 

BP Bomb present position. 

BT Total bomb misses allowed. 


CB Biggest depth canyon can have. This cannot exceed half 
the distance between the two cliff tops, otherwise it 
becomes difficult to join the bottom of the canyon to the 
other cliff top. 
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CD 
CL 
CM 
CR 
DC 
DT 
LB 
LM 
LE 
LS 
ML 


MR 


NB 
NC 
NH 
NP 
PM 
PN 
PP 


RB 


RE 
RS 


Canyon Bomber 


Canyon depth. 

Canyon base left position. 

Minimum canyon depth. 

Canyon base right position. 

Distance vertically of canyon top from TL. 
Distance between top left and top right of screen. 
Biggest length cliff top on right can have. 
Minimum length cliff top on left can have. 

Left end position of cliff top. 

Left start position of cliff top. 


Canyon left side slope, as well as bomb drop movement 
when plane moves left to right. 


Canyon right side slope, as well as bomb drop movement 
when plane moves right to left. 


New bomb position. 

Count for numbers poked at start. 

Count for how many numbers have been hit. 
New plane position. 

Plane movement. 

Position one above NB. 

Plane position. 

Score. 

Biggest length cliff top on right can have. 
Minimum length cliff top on right can have. 
Right end position of cliff top. 

Right start position of cliff top. 
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Symbols used 


BS Bomb symbol. 

OS  Nought symbol — character code for number zero. 
NS Nine symbol — character code for number nine. 
PS Plane symbol — either to right, P1, or left, P2. 

WS __ Wall symbol — used for cliff top and canyon sides. 


16 PRINTCHR# (6) CHRE#(17):G0TO900 

20 NP=PP+PM: [FNP >TLANDNF« s>TRTHENSO 

25 PM=-PM:BD=2*ULL-BD: [FRM GTHENPS=Fe 

26 IFFN?QTHENPS=PF 1 

30 TFBH=1THENBH=0:G0TO50 

40 BM=BM+i: IFBM=BTTHENCLS:6CTO0150 

SG POREPF,32:PP=NP:POKEPP.FS 

60 IFBF=1THENDO 

70 AF=KEVS: [FAS FUR" THENZO 

BO BR=PF:hF=1:08=8D 

90 NB=BP+DB:PR=FEER (NB} : IFPB=WSORPEER (NB-LLD SW 
STHENBF=Gr: EXPLODE: GOTO29 

100 BP=NB:POKERBP, 8S: WAIT (i):PORERF, 32 

iia L[FPB=32ZTHENZ¢ 

120 $=9+PB-O05: BH=1:NH=NHt+i: IFNH=NCTHENS=S#2: 60 
TOUSS 

i4G PN=NB-LL:PB=PEERK (PN): POKENB,PR: IFPR=S32 THEN 
20 

i50 NE=PN:G0TO140 

155 CLO;FRINT"You hit them all and double your 
"sFRINT"score. " 

160 FRINT"You scored "35; "points. ” 

170 END 

9O0 TL=£BC9A: TR=£EBCBD: BL=£BECA: BREE BREED: LL=40 
910 GS=46:NS=S7:P1=91:RS=92:WS=93:P2=94: PS=F 1 
915 FORZ=917T094: GOSUBZ000; NEXT 

S20 $=0:RM=O:NH=0:BT=3:LB=S:LM=1:RB=S:RM=1: 0C= 
1:UM=? 

945 PP=TLiPN=1:BD=LL+1; BF =O; BHEG 

9a0 OT=TR-TL:LS=TL+LL*DC: LE=LS+INT ( (LB-LM) #RND 
(1)+LA) 

960 RESLS+DT: RS=RE-INT((RB-RM} #RND (1) +RM) 

S70 MLELLti:NR=LL-i:L=TL+OC#NL: R=TR+OC#eMNRE TFLE 
eLTTHENLE=L 
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S380 IFRS:RTHENRS=R 

$90 CB=INT{CRS-LEjJ/2) 

1000 CD=INTC(CB-CM) #RND(1)+Ce): TFLE+CDeL Le BLTH 
EN1TOGO 

1005 CL=LE+CD#ehL: CRERS+COeMR 

1910 CLS:FRINT"Do you want instructions (¥/Ni® 


LO15 INFUTAS: IFA="¥"THENGOSUBSGOG 

1020 INKO:FPAPFER4S: CLS: 8=LS:C=LE:ST=i:G05UB2000 
1040 B=LE:C=CL:ST=ML:GGSUBS006 

{O50 BSCLt+i:CeCR-1:ST=1:G0S5UB3000 

1060 B=RS:C=CR:ST=MR: GOSUBS0GG 

1070 B=RS:C=RE:ST=1:GOSUBI900 

1080 POKELE,32:FOKERS,32:NC=NC-2 

1100 BD=ML:PORKEPP,PS:G607Td2¢ 

2O0Q ¥ke=46080+2"6:FORO=Xx47TGX e+ 7: READU: POREO,U: 
MEXT: RETURN 

2010 DATAI6,8,36,62,4,8.16,0,0,10,4,4,4,4,0,0, 
63,63,63,63,63,465,64,63 

2020 DATAZ,4,97,63,6,4,2,9 

2000 FORA=BTOCSTEPST: TS=N5:F=A: FOKEA+LL WS 
3005 IFC=LEQRC=REGRPEERK (FP) 2 232 THENSGSG 

BOLG TFRND(i}¢.STHENTS=TS-1 

S020 [FRND(1)<,. SANDTSS05+17HENSO10 

SG30 NC=NC+l:FOREP, TS: TF TS3G5+iTHENP=F-LL: TSS7 
s-i 

3040 TFTS3GS+1ANDFERSTHENS O30 

3050 NERT:RETURN 

S000 CLO:FRINT"You control a bomber flying ave 
r’aPRIN?"a canyon. Gn @ach pass you" 

SOLO PRINT “must hit at teast ane mumper in“:FR 
INT"the canyon, whose vaiue will" 

Suet PRINT"added to vour score, You may miss": 
PRINT"just “:BT;" times, then the game” 

SU30 FRINT“ends. You may only droog ane bomb at 
“sFRINi "a time, and no others can te" 

Go40 FRINT drooped while that ore is in tight 
PRINT The bomb will fail at an angle’ 

S050 FRINT"Controis - press &# to drop a pomb." 
:FRIN? "Press any key to begin." 

30460 REPEAT: GETA$: UNTIL Ag. 2" "2 RETURN 





Other titles available from Micro Press: 


THE MICRO MAZE: A GUIDE TO 
PERSONAL COMPUTING 


Wynford James 


0 7447 0000 0 


QUALITY PROGRAMS FOR THE 
BBC MICRO 


Simon 
0 7447 0001 9 


15 GRAPHIC GAMES FOR THE 
SPECTRUM 


Richard G. Hurley 


0 7447 0002 7 


SIMON’S PROGRAMS FOR THE 
ELECTRON 


Simon 
0 7447 0004 3 
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These 20 diverse and highly entertaining games are self 
contained and easy to enter, and will provide hours of 
pleasure, using the capabilities of your ORIC to the full. The 
process of entering the programs will provide insight into the 
many and varied techniques used in the compilation of 
programs of this sort. By exploring fully the challenges of 
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write his own.games in the future. 
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